Changeset 22188 for v6

Timestamp:

09/08/08 19:20:36 (3 months ago)

Author:

ruoso

Message:

[smop] avoids stopping to release objects if there is a null constant...

Location:

v6/smop

Files:

• m0ld/m0ld_boilerplate_back (modified) (1 diff)
• src/smop_mold.c (modified) (1 diff)

v6/smop/m0ld/m0ld_boilerplate_back

@@ -12 +12 @@
                                                              NULL, NULL));
 
+  SMOP_DISPATCH(interpreter, SMOP_RI(interpreter),
+                SMOP__ID__goto,
+                SMOP__NATIVE__bool_false);
+
+  SMOP_DISPATCH(interpreter, SMOP_RI(interpreter),
+                SMOP__ID__loop, SMOP__NATIVE__capture_create(interpreter,
+                                                             SMOP_REFERENCE(interpreter,interpreter),
+                                                             NULL, NULL));
+
 
   SMOP_RELEASE(SMOP__INTPTR__InterpreterInstance,interpreter);

v6/smop/src/smop_mold.c

@@ -114 +114 @@
   if (SMOP__ID__DESTROYALL == identifier) {
     int i;
-    for (i=0;mold->constants[i];i++) {
-      SMOP_RELEASE(interpreter,mold->constants[i]);
+    for (i=0;i <= mold->constants_len;i++) {
+      if (mold->constants[i])
+        SMOP_RELEASE(interpreter,mold->constants[i]);
     }
     free(mold->constants);