[svn:parrot] r46311 - trunk/examples/tools

NotFound at svn.parrot.org NotFound at svn.parrot.org
Wed May 5 13:46:29 UTC 2010


Author: NotFound
Date: Wed May  5 13:46:28 2010
New Revision: 46311
URL: https://trac.parrot.org/parrot/changeset/46311

Log:
fix directory segment reading in example pbc_checker

Modified:
   trunk/examples/tools/pbc_checker.cpp

Modified: trunk/examples/tools/pbc_checker.cpp
==============================================================================
--- trunk/examples/tools/pbc_checker.cpp	Wed May  5 12:42:40 2010	(r46310)
+++ trunk/examples/tools/pbc_checker.cpp	Wed May  5 13:46:28 2010	(r46311)
@@ -433,11 +433,13 @@
     opcode size = read_opcode(pbcfile);
     cout << "Directory segment size: " << size << '\n';
 
-    pbcfile.ignore(16 - opcode_size);
-    // Not sure if the update of this check is correct,
-    // but lacked the time to verify with old parrots.
-    if ((pbc_major < 3 || (pbc_major == 3 && pbc_minor < 25)) && opcode_size == 8)
-        pbcfile.ignore(16);
+    // Must be zero:
+    opcode in_type = read_opcode(pbcfile);
+    opcode in_id   = read_opcode(pbcfile);
+    opcode op_size = read_opcode(pbcfile);
+    cout << "Internal type: " << in_type << '\n';
+    cout << "Internal id:   " << in_id   << '\n';
+    cout << "Op table size: " << op_size << '\n';
 
     opcode entries = read_opcode(pbcfile);
     cout << "Directory entries: " << entries << '\n';


More information about the parrot-commits mailing list