[svn:parrot] r49706 - trunk/src

[cotto at svn.parrot.org]

Author: cotto
Date: Thu Oct 28 01:39:26 2010
New Revision: 49706
URL: https://trac.parrot.org/parrot/changeset/49706

Log:
[tools] try to make code easier to follow

Modified:
   trunk/src/pbc_dump.c

Modified: trunk/src/pbc_dump.c
==============================================================================
--- trunk/src/pbc_dump.c	Thu Oct 28 01:05:51 2010	(r49705)
+++ trunk/src/pbc_dump.c	Thu Oct 28 01:39:26 2010	(r49706)
@@ -101,15 +101,18 @@
             self->name, (int)self->size, (int)self->file_offset + 4);
 
     for (i = 0; i < map->n_libs; i++) {
-        INTVAL j;
+
+        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);
+
         for (j = 0; j < map->libs[i].n_ops; j++) {
-            Parrot_io_printf(interp, "    %08lx => %08lx (%s)\n",
-                    entry->table_ops[j], entry->lib_ops[j],
-                    entry->lib->op_info_table[ entry->lib_ops[j] ].full_name);
+            lib_num    = entry->lib_ops[j];
+            table_num  = entry->table_ops[j];
+            Parrot_io_printf(interp, "    %08lx => %08lx (%s)\n", table_num, lib_num,
+                    entry->lib->op_info_table[lib_num].full_name);
         }
         Parrot_io_printf(interp, "  ]\n");
     }