Changeset 95 for trunk/orca

Timestamp:

03/19/06 12:35:52 (3 years ago)

Author:

krobillard

Message:

Remove can now be passed the tail of a series.

Files:

• trunk/orca/series.c (modified) (4 diffs)

trunk/orca/series.c

@@ -600 +600 @@
         {
             OBlock* arr = orBLOCK(a1);
-            orArrayErase( arr, sizeof(OValue), a1->series.it, len );
+            if( a1->series.it < arr->used )
+                orArrayErase( arr, sizeof(OValue), a1->series.it, len );
         }
             break;
@@ -611 +612 @@
         {
             OString* arr = orSTRING(a1);
-            orArrayErase( arr, sizeof(char), a1->series.it, len );
+            if( a1->series.it < arr->used )
+                orArrayErase( arr, sizeof(char), a1->series.it, len );
         }
             break;
@@ -619 +621 @@
         {
             OArray* arr = orDEC_ARRAY(a1);
-            orArrayErase( arr, sizeof(double), a1->series.it, len );
+            if( a1->series.it < arr->used )
+                orArrayErase( arr, sizeof(double), a1->series.it, len );
         }
             break;
@@ -626 +629 @@
         {
             OArray* arr = orINT_ARRAY(a1);
-            orArrayErase( arr, sizeof(int32_t), a1->series.it, len );
+            if( a1->series.it < arr->used )
+                orArrayErase( arr, sizeof(int32_t), a1->series.it, len );
         }
             break;