shithub: spirva

Info  •  Files  •  Log  •  Branches

use keyword lookup, fixes strings

--- a/asm.c

+++ b/asm.c

@@ -7,13 +7,18 @@

 #define NIL 0

-#define BUF4(x) ((x)%4 ? ((x)/4 + 1)*4 : (x))

-

 Inst res;

 Inst op;

 Inst args[10];

 int argptr = 0;

+int

+lstrlen(int len)

+{

+	int nlen = len + 1;

+	return (nlen)%4 == 0 ? (nlen/4) : (nlen/4)+1;

+}

+

 void

 a_init()

 {

@@ -122,9 +127,9 @@

 			break;

 		case STR:

 			slen = strlen(in.str);

-			memset(optr, 0, BUF4(slen));

+			memset(optr, 0, lstrlen(slen)*4);

 			memcpy(optr, in.str, slen);

-			optr += slen/4+1;

+			optr += lstrlen(slen);

 			break;

 		}

 	}

@@ -199,6 +204,6 @@

 {

 	Inst a;

 	a.type = INT;

-	a.i = 0;

+	a.i = k_lookup(str);

 	arg(a);

 }