Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

  • Loading branch information...
commit 343548da7274cd15aaeabe72c6b37bce78e9af9c 1 parent 0c42e30
@simonmar simonmar authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 rts/Disassembler.c
View
4 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 );
Please sign in to comment.
Something went wrong with that request. Please try again.