diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-02-27 13:46:09 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-02-27 13:46:09 +0000 |
| commit | b067bdc33ce1a0bb01957b0bcfbb1c516dba53a4 (patch) | |
| tree | ca8c9a739185c3714fa795c1924b5bd781c21bbd /rts/Disassembler.c | |
| parent | f38310c9d33a263a610005996f32f3d7d2e25c44 (diff) | |
| download | haskell-b067bdc33ce1a0bb01957b0bcfbb1c516dba53a4.tar.gz | |
Remove the itbls field of BCO, put itbls in with the literals
This is a simplification & minor optimisation for GHCi
Diffstat (limited to 'rts/Disassembler.c')
| -rw-r--r-- | rts/Disassembler.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/rts/Disassembler.c b/rts/Disassembler.c index f29cce2daa..4407c77f3b 100644 --- a/rts/Disassembler.c +++ b/rts/Disassembler.c @@ -41,9 +41,6 @@ disInstr ( StgBCO *bco, int pc ) StgMutArrPtrs* ptrs_arr = bco->ptrs; StgPtr* ptrs = (StgPtr*)(&ptrs_arr->payload[0]); - StgArrWords* itbls_arr = bco->itbls; - StgInfoTable** itbls = (StgInfoTable**)(&itbls_arr->payload[0]); - instr = instrs[pc++]; switch (instr) { case bci_SWIZZLE: @@ -163,7 +160,7 @@ disInstr ( StgBCO *bco, int pc ) pc += 1; break; case bci_PACK: debugBelch("PACK %d words with itbl ", instrs[pc+1] ); - printPtr( (StgPtr)itbls[instrs[pc]] ); + printPtr( (StgPtr)literals[instrs[pc]] ); debugBelch("\n"); pc += 2; break; |