Author: leo
Date: Tue Mar 7 12:21:31 2006
New Revision: 11816
Modified:
trunk/src/packfile.c
Log:
tracing - send code segment switch notes to debugger interpreter, if available
Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c (original)
+++ trunk/src/packfile.c Tue Mar 7 12:21:31 2006
@@ -2419,9 +2419,12 @@
/* compiling source code uses this function too,
* which gives misleading trace messages
*/
- if (really && Interp_trace_TEST(interpreter, PARROT_TRACE_SUB_CALL_FLAG))
- PIO_eprintf(interpreter, "*** switching to %s\n",
+ if (really && Interp_trace_TEST(interpreter, PARROT_TRACE_SUB_CALL_FLAG)) {
+ Interp *tracer = interpreter->debugger ?
+ interpreter->debugger : interpreter;
+ PIO_eprintf(tracer, "*** switching to %s\n",
new_cs->base.name);
+ }
interpreter->code = new_cs;
CONTEXT(interpreter->ctx)->constants = new_cs->const_table->constants;
CONTEXT(interpreter->ctx)->pred_offset =
