[commit: ghc] master: Fix bugs in debug printing (4cd277b)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4cd277b4dcb91c6c6aa7e071ef0364570566de37/ghc

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

commit 4cd277b4dcb91c6c6aa7e071ef0364570566de37
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Tue Nov 4 15:52:23 2014 +0000

    Fix bugs in debug printing


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

4cd277b4dcb91c6c6aa7e071ef0364570566de37
 rts/Disassembler.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/rts/Disassembler.c b/rts/Disassembler.c
index 6b7fa82..f6e2c93 100644
--- a/rts/Disassembler.c
+++ b/rts/Disassembler.c
@@ -288,7 +288,7 @@ void disassemble( StgBCO *bco )
 
    debugBelch("BCO\n" );
    pc = 0;
-   while (pc <= nbcs) {
+   while (pc < nbcs) {
       debugBelch("\t%2d:  ", pc );
       pc = disInstr ( bco, pc );
    }
@@ -312,7 +312,6 @@ void disassemble( StgBCO *bco )
    debugBelch("\n");
 
    debugBelch("\n");
-   ASSERT(pc == nbcs+1);
 }
 
 #endif /* DEBUG */