|
From: <le...@us...> - 2003-11-25 21:11:40
|
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 },
|