fix disassembler after removal of size field in bco->instrs (#7518)

ghc · Jan 9, 2013 · 343548d · 343548d
1 parent 0c42e30
commit 343548d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/rts/Disassembler.c b/rts/Disassembler.c
@@ -283,11 +283,11 @@ void disassemble( StgBCO *bco )
    nat i, j;
    StgWord16*     instrs    = (StgWord16*)(bco->instrs->payload);
    StgMutArrPtrs* ptrs      = bco->ptrs;
-   nat            nbcs      = (int)instrs[0];
+   nat            nbcs      = (int)(bco->instrs->bytes / sizeof(StgWord16));
    nat            pc        = 1;
 
    debugBelch("BCO\n" );
-   pc = 1;
+   pc = 0;
    while (pc <= nbcs) {
       debugBelch("\t%2d:  ", pc );
       pc = disInstr ( bco, pc );