[svn:parrot] r39573 - trunk/src

[NotFound at svn.parrot.org]

Author: NotFound
Date: Mon Jun 15 19:34:53 2009
New Revision: 39573
URL: https://trac.parrot.org/parrot/changeset/39573

Log:
[cage] fix for a problem with the debug op found while working on TT #752

Modified:
   trunk/src/debug.c

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	Mon Jun 15 17:21:39 2009	(r39572)
+++ trunk/src/debug.c	Mon Jun 15 19:34:53 2009	(r39573)
@@ -3344,8 +3344,12 @@
 PDB_info(PARROT_INTERP)
 {
     ASSERT_ARGS(PDB_info)
-    Parrot_Interp itdeb = interp->pdb->debugger;
-    Parrot_Interp itp = interp->pdb->debugee;
+
+    /* If a debugger is created, use it for printing and use the
+     * data in his debugee. Otherwise, use current interpreter
+     * for both */
+    Parrot_Interp itdeb = interp->pdb ? interp->pdb->debugger : interp;
+    Parrot_Interp itp = interp->pdb ? interp->pdb->debugee : interp;
 
     Parrot_io_eprintf(itdeb, "Total memory allocated = %ld\n",
             interpinfo(itp, TOTAL_MEM_ALLOC));