summaryrefslogtreecommitdiff
path: root/rts/Disassembler.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/Disassembler.c')
-rw-r--r--rts/Disassembler.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/rts/Disassembler.c b/rts/Disassembler.c
index 7e3529bb7f..2e1790ef8d 100644
--- a/rts/Disassembler.c
+++ b/rts/Disassembler.c
@@ -67,8 +67,9 @@ disInstr ( StgBCO *bco, int pc )
switch (instr & 0xff) {
case bci_BRK_FUN:
debugBelch ("BRK_FUN " ); printPtr( ptrs[instrs[pc]] );
- debugBelch (" %d ", instrs[pc+1]); printPtr( ptrs[instrs[pc+2]] ); debugBelch("\n" );
- pc += 3;
+ debugBelch (" %d ", instrs[pc+1]); printPtr( ptrs[instrs[pc+2]] );
+ debugBelch(" %s\n", ((CostCentre*)(literals[instrs[pc+3]]))->label);
+ pc += 4;
break;
case bci_SWIZZLE:
debugBelch("SWIZZLE stkoff %d by %d\n",