diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2014-11-04 15:52:23 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2014-11-05 18:13:50 +0000 |
| commit | 4cd277b4dcb91c6c6aa7e071ef0364570566de37 (patch) | |
| tree | ea13e45c4253c677ce7766cfcd1654f40cffc35e /rts | |
| parent | 83cf31e42e87e93eda3e576bc5935509959c2f49 (diff) | |
| download | haskell-4cd277b4dcb91c6c6aa7e071ef0364570566de37.tar.gz | |
Fix bugs in debug printing
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Disassembler.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/rts/Disassembler.c b/rts/Disassembler.c index 6b7fa82101..f6e2c93b82 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 */ |