[svn:parrot] r41976 - trunk/src

[NotFound at svn.parrot.org]

Author: NotFound
Date: Wed Oct 21 17:44:59 2009
New Revision: 41976
URL: https://trac.parrot.org/parrot/changeset/41976

Log:
Fix a bug in showing annotations when backtracing an uncatched exception

Modified:
   trunk/src/debug.c

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	Wed Oct 21 17:05:40 2009	(r41975)
+++ trunk/src/debug.c	Wed Oct 21 17:44:59 2009	(r41976)
@@ -3581,10 +3581,11 @@
 
         /* print the context description */
         if (rec_level == 0) {
+            PackFile_ByteCode *seg = sub_cont->seg;
             Parrot_io_eprintf(interp, "%Ss", str);
-            if (interp->code->annotations) {
-                PMC *annot = PackFile_Annotations_lookup(interp, interp->code->annotations,
-                        Parrot_pcc_get_pc(interp, sub_cont->to_ctx) - interp->code->base.data + 1,
+            if (seg->annotations) {
+                PMC *annot = PackFile_Annotations_lookup(interp, seg->annotations,
+                        Parrot_pcc_get_pc(interp, sub_cont->to_ctx) - seg->base.data,
                         NULL);
 
                 if (!PMC_IS_NULL(annot)) {