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 */{
|
