diff options
| author | sewardj <unknown> | 2001-01-05 15:24:28 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-01-05 15:24:28 +0000 |
| commit | 7215e7347b9e46ef5991bc07140dfd58b0a70cad (patch) | |
| tree | eb40676323beba6c8d33c0ed7adf280eacd03d8b /ghc/rts/Disassembler.c | |
| parent | f6e250ab5064795e7243954f1b0c7d5c1d961ddb (diff) | |
| download | haskell-7215e7347b9e46ef5991bc07140dfd58b0a70cad.tar.gz | |
[project @ 2001-01-05 15:24:28 by sewardj]
Various bug fixes.
Diffstat (limited to 'ghc/rts/Disassembler.c')
| -rw-r--r-- | ghc/rts/Disassembler.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/rts/Disassembler.c b/ghc/rts/Disassembler.c index 29d40d6479..65809d3883 100644 --- a/ghc/rts/Disassembler.c +++ b/ghc/rts/Disassembler.c @@ -5,8 +5,8 @@ * Copyright (c) 1994-1998. * * $RCSfile: Disassembler.c,v $ - * $Revision: 1.17 $ - * $Date: 2001/01/03 16:44:30 $ + * $Revision: 1.18 $ + * $Date: 2001/01/05 15:24:28 $ * ---------------------------------------------------------------------------*/ #ifdef GHCI @@ -64,6 +64,7 @@ int disInstr ( StgBCO *bco, int pc ) case bci_PUSH_AS: fprintf(stderr, "PUSH_AS " ); printPtr( ptrs[instrs[pc]] ); fprintf(stderr, " 0x%x", literals[instrs[pc+1]] ); + fprintf(stderr, "\n"); pc += 2; break; case bci_PUSH_UBX: fprintf(stderr, "PUSH_UBX "); @@ -94,6 +95,7 @@ int disInstr ( StgBCO *bco, int pc ) case bci_PACK: fprintf(stderr, "PACK %d words with itbl ", instrs[pc+1] ); printPtr( (StgPtr)itbls[instrs[pc]] ); + fprintf(stderr, "\n"); pc += 2; break; case bci_TESTLT_I: |