[svn:parrot] r44536 - in trunk/src: . runcore

NotFound at svn.parrot.org NotFound at svn.parrot.org
Sat Feb 27 21:22:08 UTC 2010


Author: NotFound
Date: Sat Feb 27 21:22:05 2010
New Revision: 44536
URL: https://trac.parrot.org/parrot/changeset/44536

Log:
make parrot_debugger breakpoints work a little

Modified:
   trunk/src/debug.c
   trunk/src/runcore/cores.c

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	Sat Feb 27 17:51:07 2010	(r44535)
+++ trunk/src/debug.c	Sat Feb 27 21:22:05 2010	(r44536)
@@ -1745,16 +1745,9 @@
 
     /* If there is a source file use line number, else opcode position */
 
-
-    if (pdb->file) {
+    if (pdb->file && pdb->file->size) {
         TRACEDEB_MSG("PDB_set_break file");
 
-        if (!pdb->file->size) {
-            Parrot_io_eprintf(pdb->debugger,
-                "Can't set a breakpoint in empty file\n");
-            return;
-        }
-
         /* If no line number was specified, set it at the current line */
         if (ln != 0) {
             unsigned long i;

Modified: trunk/src/runcore/cores.c
==============================================================================
--- trunk/src/runcore/cores.c	Sat Feb 27 17:51:07 2010	(r44535)
+++ trunk/src/runcore/cores.c	Sat Feb 27 21:22:05 2010	(r44536)
@@ -930,6 +930,7 @@
 
         Parrot_pcc_set_pc(interp, CURRENT_CONTEXT(interp), pc);
         DO_OP(pc, interp);
+        interp->pdb->cur_opcode = pc;
 
         if (interp->pdb->state & PDB_STOPPED) {
             Parrot_debugger_start(interp, pc);


More information about the parrot-commits mailing list