[Meshdb-cvs] src/vpf/gdps operator.c,1.5,1.6

[<le...@us...>]

Update of /cvsroot/meshdb/src/vpf/gdps
In directory sc8-pr-cvs1:/tmp/cvs-serv24737

Modified Files:
	operator.c 
Log Message:
rename index() to o_index() to avoid stdlib conflict; fix bug in clear() where stack was not completely cleared

Index: operator.c
===================================================================
RCS file: /cvsroot/meshdb/src/vpf/gdps/operator.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- operator.c	25 Nov 2003 07:10:34 -0000	1.5
+++ operator.c	25 Nov 2003 21:11:37 -0000	1.6
@@ -183,7 +183,7 @@
 }
 
 static void
-index(gs)
+o_index(gs)
 	struct gstate *gs;
 {
 	int count = integer(gs);
@@ -210,7 +210,7 @@
 	object_t *o;
 
 	n = stack_count(gs->stack);
-	while (--n) {
+	while (n-- > 0) {
 		o = POP();
 		DECREF(o);
 	}
@@ -996,7 +996,7 @@
 	{ "exch",	exch },
 	{ "dup",	dup },
 	{ "copy",	copy },
-	{ "index",	index },
+	{ "index",	o_index },
 	{ "roll",	roll },
 	{ "clear",	clear },
 	{ "count",	count },