[commit: ghc] master: fix disassembler after removal of size field in bco->instrs (#7518) (343548d)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/343548da7274cd15aaeabe72c6b37bce78e9af9c

>---------------------------------------------------------------

commit 343548da7274cd15aaeabe72c6b37bce78e9af9c
Author: Simon Marlow <[email protected]>
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 );