diff options
| author | sof <unknown> | 2003-03-25 17:04:09 +0000 |
|---|---|---|
| committer | sof <unknown> | 2003-03-25 17:04:09 +0000 |
| commit | c3a029ef484dbaa5dcf8a94258553e2581333b32 (patch) | |
| tree | 7cd7ce8139e5584e237c41792985578a7680e8ad | |
| parent | 5b4b4197156f3272009571450aca196a7bf9142c (diff) | |
| download | haskell-c3a029ef484dbaa5dcf8a94258553e2581333b32.tar.gz | |
[project @ 2003-03-25 17:04:09 by sof]
BCO_INSTRS() is no more
| -rw-r--r-- | ghc/rts/Disassembler.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/rts/Disassembler.c b/ghc/rts/Disassembler.c index 6ede8c9289..f8660e677b 100644 --- a/ghc/rts/Disassembler.c +++ b/ghc/rts/Disassembler.c @@ -4,8 +4,8 @@ * Copyright (c) 1994-2002. * * $RCSfile: Disassembler.c,v $ - * $Revision: 1.26 $ - * $Date: 2002/12/11 15:36:41 $ + * $Revision: 1.27 $ + * $Date: 2003/03/25 17:04:09 $ * ---------------------------------------------------------------------------*/ #ifdef DEBUG @@ -34,7 +34,7 @@ disInstr ( StgBCO *bco, int pc ) { int i; - StgWord16* instrs = (StgWord16*)(BCO_INSTRS(bco)); + StgWord16* instrs = (StgWord16*)(bco->instrs->payload); StgArrWords* literal_arr = bco->literals; StgWord* literals = (StgWord*)(&literal_arr->payload[0]); @@ -249,7 +249,7 @@ disInstr ( StgBCO *bco, int pc ) void disassemble( StgBCO *bco ) { nat i, j; - StgWord16* instrs = (StgWord16*)(BCO_INSTRS(bco)); + StgWord16* instrs = (StgWord16*)(bco->instrs->payload); StgMutArrPtrs* ptrs = bco->ptrs; nat nbcs = (int)instrs[0]; nat pc = 1; |