X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FDisassembler.c;h=4407c77f3b233f9154955dd323c8d67064254187;hb=ca5ded310c0a596be199a3da5f14be2fb2020687;hp=f29cce2daa43be9ae19803dd8bf4825f1d9279bf;hpb=94abbcb6d1d3d28d0b2de965e1357ac7b8f8c40a;p=ghc-hetmet.git

diff --git a/rts/Disassembler.c b/rts/Disassembler.c
index f29cce2..4407c77 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;