develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r34995 - branches/bcanno/src

From:
jonathan
Date:
January 5, 2009 08:39
Subject:
[svn:parrot] r34995 - branches/bcanno/src
Message ID:
20090105163933.EBFBBCB9F9@x12.develooper.com
Author: jonathan
Date: Mon Jan  5 08:39:33 2009
New Revision: 34995

Modified:
   branches/bcanno/src/packfile.c

Log:
[core] Correct dump output for annotations segment to be consistent with othesrs.

Modified: branches/bcanno/src/packfile.c
==============================================================================
--- branches/bcanno/src/packfile.c	(original)
+++ branches/bcanno/src/packfile.c	Mon Jan  5 08:39:33 2009
@@ -4019,6 +4019,8 @@
     PackFile_Annotations *self = (PackFile_Annotations *)seg;
     INTVAL i;
 
+    default_dump_header(interp, self);
+
     /* Dump keys. */
     Parrot_io_printf(interp, "\n  keys => [\n");
     for (i = 0; i < self->num_keys; i++) {
@@ -4061,6 +4063,8 @@
         Parrot_io_printf(interp, "    ],\n");
     }
     Parrot_io_printf(interp, "  ],\n");
+
+    Parrot_io_printf(interp, "],\n");
 }
 
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About