[svn:parrot] r46255 - trunk/src

darbelo at svn.parrot.org darbelo at svn.parrot.org
Mon May 3 22:33:51 UTC 2010


Author: darbelo
Date: Mon May  3 22:33:50 2010
New Revision: 46255
URL: https://trac.parrot.org/parrot/changeset/46255

Log:
Remove '#if 0' and nearby commented out code from src/debug.c

Modified:
   trunk/src/debug.c

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	Mon May  3 22:33:37 2010	(r46254)
+++ trunk/src/debug.c	Mon May  3 22:33:50 2010	(r46255)
@@ -1157,22 +1157,6 @@
     /* Erase the stopped flag */
     pdb->state &= ~PDB_STOPPED;
 
-    /* Testing use of the debugger runloop */
-    #if 0
-
-    /* Execute */
-    for (; n && pdb->cur_opcode; --n)
-        DO_OP(pdb->cur_opcode, pdb->debugee);
-
-    /* Set the stopped flag */
-    pdb->state |= PDB_STOPPED;
-
-    /* If program ended */
-
-    if (!pdb->cur_opcode)
-        (void)PDB_program_end(interp);
-    #endif
-
     debugee     = pdb->debugee;
 
     new_runloop_jump_point(debugee);
@@ -1684,27 +1668,6 @@
         PDB_skip_breakpoint(interp, ln);
     }
 
-    /* Run while no break point is reached */
-    /*
-    while (!PDB_break(interp))
-        DO_OP(pdb->cur_opcode, pdb->debugee);
-    */
-
-    #if 0
-    pdb->tracing           = 0;
-    Parrot_runcore_switch(pdb->debugee, CONST_STRING(interp, "debugger"));
-
-    new_internal_exception(pdb->debugee);
-    if (setjmp(pdb->debugee->exceptions->destination)) {
-        Parrot_io_eprintf(pdb->debugee, "Unhandled exception while debugging: %Ss\n",
-            pdb->debugee->exceptions->msg);
-        pdb->state |= PDB_STOPPED;
-        return;
-    }
-    runops_int(pdb->debugee, pdb->debugee->code->base.data - pdb->cur_opcode);
-    if (!pdb->cur_opcode)
-        (void)PDB_program_end(interp);
-    #endif
     pdb->state |= PDB_RUNNING;
     pdb->state &= ~PDB_BREAK;
     pdb->state &= ~PDB_STOPPED;


More information about the parrot-commits mailing list