[svn:parrot] r48197 - in trunk: src t/tools

[chromatic at svn.parrot.org]

Author: chromatic
Date: Wed Jul 28 06:41:35 2010
New Revision: 48197
URL: https://trac.parrot.org/parrot/changeset/48197

Log:
[pf] Added mark for packfile names.

Modified:
   trunk/src/packfile.c
   trunk/t/tools/pbc_dump.t

Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c	Wed Jul 28 06:00:06 2010	(r48196)
+++ trunk/src/packfile.c	Wed Jul 28 06:41:35 2010	(r48197)
@@ -856,6 +856,9 @@
                                ARGIN_NULLOK(void *user_data))
 {
     ASSERT_ARGS(find_const_iter)
+
+    Parrot_gc_mark_STRING_alive(interp, seg->name);
+
     if (seg->type == PF_DIR_SEG)
         PackFile_map_segments(interp, (const PackFile_Directory *)seg,
                 find_const_iter, user_data);

Modified: trunk/t/tools/pbc_dump.t
==============================================================================
--- trunk/t/tools/pbc_dump.t	Wed Jul 28 06:00:06 2010	(r48196)
+++ trunk/t/tools/pbc_dump.t	Wed Jul 28 06:41:35 2010	(r48197)
@@ -77,10 +77,9 @@
     $longcode .= "\$I0 = \$I0 + 1234\n";
 }
 $longcode .= ".end";
-TODO: {
-    local $TODO = "not quite fixed yet";
-dump_output_like( $longcode, "pir",  qr/BYTECODE.*_DB.*=>/, "large pir program doesn't mess up pbc_dump");
-}
+
+dump_output_like( $longcode, "pir",  qr/BYTECODE.*_DB.*=>/,
+    "large pir program doesn't mess up pbc_dump");
 
 =head1 HELPER SUBROUTINES