Re: [PATCH] Help catching gc errors in HLL

[NotFound]

Previous version generates a warning when building with C, fixed now.


-- 
Salu2

Index: src/runops_cores.c
===================================================================
--- src/runops_cores.c	(revisión: 28033)
+++ src/runops_cores.c	(copia de trabajo)
@@ -242,13 +242,28 @@
 opcode_t *
 runops_gc_debug_core(PARROT_INTERP, ARGIN(opcode_t *pc))
 {
+    static int flag = 0;
+    static unsigned long counter= 0;
+
+    if (! flag) {
+        char * str = getenv("PARROT_GCDEBUG_SKIP");
+        if (str)
+            counter = strtoul(str, 0, 0);
+        flag= 1;
+    }
+
     while (pc) {
         if (pc < code_start || pc >= code_end)
             real_exception(interp, NULL, 1,
                     "attempt to access code outside of current code segment");
 
-        Parrot_do_dod_run(interp, 0);
-        CONTEXT(interp)->current_pc = pc;
+        if (counter == 0) {
+            Parrot_do_dod_run(interp, 0);
+            CONTEXT(interp)->current_pc = pc;
+        }
+        else {
+            --counter;
+        }
 
         DO_OP(pc, interp);
     }