[agd-cvs] server/src compile.c,1.29,1.30

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16012

Modified Files:
	compile.c 
Log Message:
stringdup renamed to xstrdup; bitwise operators

Index: compile.c
===================================================================
RCS file: /cvsroot/agd/server/src/compile.c,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- compile.c	23 Jul 2004 14:24:55 -0000	1.29
+++ compile.c	23 Jul 2004 17:19:27 -0000	1.30
@@ -333,6 +333,20 @@
 	{"%=", 2, 1, TYPE_INT},
 	{"**", 2, 1, TYPE_INT},
 	{"**=", 2, 1, TYPE_INT},
+
+	{"&", 2, 1, TYPE_INT|TYPE_ARRAY},
+	{"&=", 2, 1, TYPE_INT|TYPE_ARRAY},
+	{"|", 2, 1, TYPE_INT},
+	{"|=", 2, 1, TYPE_INT},
+	{"~", 2, 1, TYPE_INT},
+	{"~=", 2, 1, TYPE_INT},
+	{"^", 2, 1, TYPE_INT},
+	{"^=", 2, 1, TYPE_INT},
+	{">>", 2, 1, TYPE_INT},
+	{">>=", 2, 1, TYPE_INT},
+	{"<<", 2, 1, TYPE_INT},
+	{"<<=", 2, 1, TYPE_INT},
+
 	{"!", 1, 0, TYPE_ALL},
 	{"==", 2, 1, TYPE_ALL},
 	{"!=", 2, 1, TYPE_ALL},
@@ -459,7 +473,7 @@
 		this_prog->functions[this_prog->numfunc-1] = curr_fun;
 
 		this_prog->fun_table = xrealloc(this_prog->fun_table, this_prog->numfunc * sizeof(char *));
-		this_prog->fun_table[this_prog->numfunc-1] = stringdup(idp->name); /* Name gets freed later. (by clean_ids()) */
+		this_prog->fun_table[this_prog->numfunc-1] = xstrdup(idp->name); /* Name gets freed later. (by clean_ids()) */
 		
 		curr_fun = NULL;
 	}
@@ -489,7 +503,7 @@
 		this_ob->numglobals++;
 		this_ob->globals = xrealloc(this_ob->globals, this_ob->numglobals * sizeof(variable_t));
 		v = &this_ob->globals[this_ob->numglobals-1];
-		v->name = stringdup(name); /* Going to be stored. */
+		v->name = xstrdup(name); /* Going to be stored. */
 		v->type = lpc_type;
 		init_var(v);
 	} else /* LVAR */{