[svn:parrot] r49707 - trunk/src

[cotto at svn.parrot.org]

Author: cotto
Date: Thu Oct 28 02:06:18 2010
New Revision: 49707
URL: https://trac.parrot.org/parrot/changeset/49707

Log:
[tools] add library version information to pbc_dump's disassembly ouput

Modified:
   trunk/src/pbc_dump.c

Modified: trunk/src/pbc_dump.c
==============================================================================
--- trunk/src/pbc_dump.c	Thu Oct 28 01:39:26 2010	(r49706)
+++ trunk/src/pbc_dump.c	Thu Oct 28 02:06:18 2010	(r49707)
@@ -94,7 +94,7 @@
 disas_dump(PARROT_INTERP, const PackFile_Segment *self)
 {
     const opcode_t *pc = self->data;
-    const PackFile_ByteCode_OpMapping *map = &((PackFile_ByteCode *)self)->op_mapping;
+    const PackFile_ByteCode_OpMapping *map = &((const PackFile_ByteCode *)self)->op_mapping;
     INTVAL i;
 
     Parrot_io_printf(interp, "%Ss => [ # %d ops at offs 0x%x\n",
@@ -105,8 +105,12 @@
         INTVAL j, lib_num, table_num;
         PackFile_ByteCode_OpMappingEntry *entry = &map->libs[i];
         Parrot_io_printf(interp, "  map #%d => [\n", i);
-        Parrot_io_printf(interp, "    oplib: \"%s\" (%d ops)\n",
-                entry->lib->name, entry->n_ops);
+        Parrot_io_printf(interp, "    oplib: \"%s\" version %d.%d.%d (%d ops)\n",
+                entry->lib->name,
+                entry->lib->major_version,
+                entry->lib->minor_version,
+                entry->lib->patch_version,
+                entry->n_ops);
 
         for (j = 0; j < map->libs[i].n_ops; j++) {
             lib_num    = entry->lib_ops[j];