[svn:parrot] r30393 - trunk/src

[julianalbo]

Author: julianalbo
Date: Wed Aug 20 13:05:53 2008
New Revision: 30393

Modified:
   trunk/src/debug.c

Log:
fixing again 'script' debugger command

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c   (original)
+++ trunk/src/debug.c   Wed Aug 20 13:05:53 2008
@@ -664,6 +664,12 @@
          *       PDB_run_command should return non-void value?
          *       stop execution of script if fails
          * RT #46115: avoid this verbose output? add -v flag? */
+
+#ifdef TRACE_DEBUGGER
+        fprintf(stderr, "(script) %s\n", buf);
+#endif
+
+        #if 0
         if (PDB_run_command(interp, buf)) {
             IMCC_warning(interp, "script_file: "
                 "Error interpreting command (%s).\n",
@@ -671,6 +677,8 @@
             close_script_file(interp);
             return;
         }
+        #endif
+       strcpy(pdb->cur_command, buf);
     }
     else {
 
@@ -854,8 +862,10 @@
             PDB_backtrace(interp);
             break;
         case (enum DebugCmd)0:
+            /*
             if (pdb->last_command)
                 PDB_run_command(interp, pdb->last_command);
+            */
             break;
         default:
             PIO_eprintf(interp,
@@ -934,8 +944,10 @@
     TRACEDEB_MSG("PDB_trace");
 
     /* if debugger is not running yet, initialize */
+    /*
     if (!(pdb->state & PDB_RUNNING))
         PDB_init(interp, command);
+    */
 
     command = nextarg(command);
     /* if the number of ops to run is specified, convert to a long */
@@ -966,6 +978,8 @@
         (void)PDB_program_end(interp);
     pdb->state |= PDB_RUNNING;
     pdb->state &= ~PDB_STOPPED;
+
+    TRACEDEB_MSG("PDB_trace finished");
 }
 
 /*