Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/343548da7274cd15aaeabe72c6b37bce78e9af9c >--------------------------------------------------------------- commit 343548da7274cd15aaeabe72c6b37bce78e9af9c Author: Simon Marlow <marlo...@gmail.com> Date: Wed Jan 9 14:46:03 2013 +0000 fix disassembler after removal of size field in bco->instrs (#7518) >--------------------------------------------------------------- rts/Disassembler.c | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/rts/Disassembler.c b/rts/Disassembler.c index bcc0858..44f487d 100644 --- 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 ); _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
