[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