diff options
| author | sewardj <unknown> | 2001-05-01 13:11:16 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-05-01 13:11:16 +0000 |
| commit | cbf578d5ec52f0c6db74156ed825dfc45afd3606 (patch) | |
| tree | 0e9e3ec58abd42eaea67d732680cbfda8ccca239 | |
| parent | eb908c04993448f8e9d4abc05c33959d1182e24e (diff) | |
| download | haskell-cbf578d5ec52f0c6db74156ed825dfc45afd3606.tar.gz | |
[project @ 2001-05-01 13:11:16 by sewardj]
Implement bci_STKCHECK.
| -rw-r--r-- | ghc/rts/Disassembler.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ghc/rts/Disassembler.c b/ghc/rts/Disassembler.c index 27b6848d31..925d117d03 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.20 $ - * $Date: 2001/03/21 10:56:04 $ + * $Revision: 1.21 $ + * $Date: 2001/05/01 13:11:16 $ * ---------------------------------------------------------------------------*/ #ifdef DEBUG @@ -44,6 +44,9 @@ int disInstr ( StgBCO *bco, int pc ) StgInfoTable** itbls = (StgInfoTable**)(&itbls_arr->payload[0]); switch (instrs[pc++]) { + case bci_STKCHECK: + fprintf(stderr, "STKCHECK %d\n", instrs[pc] ); + pc += 1; break; case bci_ARGCHECK: fprintf(stderr, "ARGCHECK %d\n", instrs[pc] ); pc += 1; break; |