[agd-cvs] server/src debug.c,1.13,1.14

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

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

Modified Files:
	debug.c 
Log Message:
Slight fix for displaying lvalue infinite loops.

Index: debug.c
===================================================================
RCS file: /cvsroot/agd/server/src/debug.c,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- debug.c	8 Jun 2004 20:30:40 -0000	1.13
+++ debug.c	12 Jun 2004 16:47:41 -0000	1.14
@@ -51,7 +51,7 @@
 #define NAME() if(v->name) printf("%s", v->name);
 void print_var(variable_t *v, int values)
 {
-	int lval_lvl;
+	static int lval_nested;
 	
 	if(!v) {
 		printf("<NULL>");
@@ -87,12 +87,13 @@
 		case T_LVALUE:
 			NAME();
 			printf("=<");
-			lval_lvl++;
-			if(lval_lvl == 2)
+			if(lval_nested)
 				printf("infinite loop");
-			else
+			else {
+				lval_nested = 1;
 				print_var(v->u.v, 1);
-			lval_lvl--;
+			}
+			lval_nested = 0;
 			
 			printf(">");
 			break;
@@ -111,7 +112,6 @@
 		case F_PUSH_VOID: return "F_PUSH_VOID";
 		case F_PUSH_NULL_OBJECT: return "F_PUSH_NULL_OBJECT";
 		case F_PUSH_ARRAY: return "F_PUSH_ARRAY";
-		case F_MAKE_LVALUE: return "F_MAKE_LVALUE";
 		case F_PUSH_LVAR: return "F_PUSH_LVAR";
 		case F_PUSH_LVAR_LVALUE: return "F_PUSH_LVAR_LVALUE";
 		case F_PUSH_GVAR: return "F_PUSH_GVAR";