[agd-cvs] server/src compile.c,1.26,1.27

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

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

Modified Files:
	compile.c 
Log Message:
F_PUSH_ARRAY in add_variable uses the correct type now

Index: compile.c
===================================================================
RCS file: /cvsroot/agd/server/src/compile.c,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- compile.c	14 Jun 2004 20:53:49 -0000	1.26
+++ compile.c	20 Jun 2004 14:01:42 -0000	1.27
@@ -474,13 +474,20 @@
 		v->type = lpc_type;
 		init_var(v);
 	} else /* LVAR */{
+		int lpc_type2 = lpc_type & ~T_ARRAY;
 		if(lpc_type & T_ARRAY) {
 			add_token(F_PUSH_ARRAY);
-			add_two_tokens(T_VOID, 0);
-		} else switch(lpc_type & ~T_ARRAY) {
-			case T_INT: add_two_tokens(F_PUSH_INT, 0); break;
-			case T_STRING: add_two_tokens(F_PUSH_STRING, -1); break;
-			case T_OBJECT: add_token(F_PUSH_NULL_OBJECT); break;
+			add_two_tokens(lpc_type2, 0);
+		} else switch(lpc_type2) {
+			case T_INT:
+				add_two_tokens(F_PUSH_INT, 0);
+				break;
+			case T_STRING:
+				add_two_tokens(F_PUSH_STRING, -1);
+				break;
+			case T_OBJECT:
+				add_token(F_PUSH_NULL_OBJECT);
+				break;
 		}
 	}