[svn:parrot] r36646 - in trunk: examples/pir src

[NotFound at svn.parrot.org]

Author: NotFound
Date: Thu Feb 12 21:30:08 2009
New Revision: 36646
URL: https://trac.parrot.org/parrot/changeset/36646

Log:
[debugger] re-enabled the debug_init opcode functionality

Modified:
   trunk/examples/pir/pirric.pir
   trunk/src/debug.c

Modified: trunk/examples/pir/pirric.pir
==============================================================================
--- trunk/examples/pir/pirric.pir	Thu Feb 12 21:28:10 2009	(r36645)
+++ trunk/examples/pir/pirric.pir	Thu Feb 12 21:30:08 2009	(r36646)
@@ -221,6 +221,7 @@
     goto start
 
 opt_debugger:
+    debug_init
     runner.'debugger'()
     inc $I1
     goto read_args

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	Thu Feb 12 21:28:10 2009	(r36645)
+++ trunk/src/debug.c	Thu Feb 12 21:30:08 2009	(r36646)
@@ -1005,6 +1005,7 @@
         /* Allocate space for command line buffers, NUL terminated c strings */
         pdb->cur_command = (char *)mem_sys_allocate_zeroed(DEBUG_CMD_BUFFER_LENGTH + 1);
         pdb->last_command = (char *)mem_sys_allocate_zeroed(DEBUG_CMD_BUFFER_LENGTH + 1);
+        pdb->file = mem_allocate_zeroed_typed(PDB_file_t);
     }
 
     /* PDB_disassemble(interp, NULL); */
@@ -3162,7 +3163,8 @@
     PDB_t         *pdb = interp->pdb;
     unsigned long  n   = 10;
 
-    if (!pdb->file) {
+    TRACEDEB_MSG("PDB_list");
+    if (!pdb->file || !pdb->file->line) {
         Parrot_io_eprintf(pdb->debugger, "No source file loaded\n");
         return;
     }