Changeset 83 for trunk/orca

Timestamp:

03/08/06 22:12:29 (3 years ago)

Author:

krobillard

Message:

Poke now handles values <= 0 correctly.

Files:

• trunk/orca/series.c (modified) (1 diff)

trunk/orca/series.c

@@ -1149 +1149 @@
 
     if( a2->type == OT_INTEGER )
-        n = orInt(a2) - 1;
+        n = orInt(a2);
     else if( a2->type == OT_DECIMAL )
-        n = ((int) orDecimal(a2)) - 1;
+        n = ((int) orDecimal(a2));
     else    // OT_LOGIC
-        n = orInt(a2) ? 0 : 1;
+        n = orLogic(a2) ? 1 : 2;
+
+    if( n > 0 )
+        --n;
+    else if( n == 0 )
+        goto bad_index;
 
     n += a1->series.it;