[agd-cvs] server/src debug.c,1.16,1.17

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

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

Modified Files:
	debug.c 
Log Message:
Changed display of F_PUSH_STRING: index -1 means push NULL string.

Index: debug.c
===================================================================
RCS file: /cvsroot/agd/server/src/debug.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- debug.c	12 Jun 2004 20:18:00 -0000	1.16
+++ debug.c	14 Jun 2004 20:54:13 -0000	1.17
@@ -225,9 +225,13 @@
 				break;
 			case F_PUSH_STRING:
 				i++;
-				printf("%d (", code[i]);
-				puts_nonl(prog->str_tbl[code[i]]);
-				putchar(')');
+				if(code[i] == -1) {
+					printf("NULL");
+				} else {
+					printf("%d (", code[i]);
+					puts_nonl(prog->str_tbl[code[i]]);
+					putchar(')');
+				}
 				break;
 			case F_PUSH_ARRAY:
 				num = code[++i];