projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-04-30 09:40:16 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
Disassembler.c
diff --git
a/ghc/rts/Disassembler.c
b/ghc/rts/Disassembler.c
index
7e33079
..
27b6848
100644
(file)
--- a/
ghc/rts/Disassembler.c
+++ b/
ghc/rts/Disassembler.c
@@
-5,8
+5,8
@@
* Copyright (c) 1994-1998.
*
* $RCSfile: Disassembler.c,v $
* Copyright (c) 1994-1998.
*
* $RCSfile: Disassembler.c,v $
- * $Revision: 1.19 $
- * $Date: 2001/02/11 17:51:07 $
+ * $Revision: 1.20 $
+ * $Date: 2001/03/21 10:56:04 $
* ---------------------------------------------------------------------------*/
#ifdef DEBUG
* ---------------------------------------------------------------------------*/
#ifdef DEBUG
@@
-98,6
+98,13
@@
int disInstr ( StgBCO *bco, int pc )
fprintf(stderr, "\n");
pc += 2; break;
fprintf(stderr, "\n");
pc += 2; break;
+ case bci_CASEFAIL:
+ fprintf(stderr, "CASEFAIL\n" );
+ break;
+ case bci_JMP:
+ fprintf(stderr, "JMP to %d\n", instrs[pc]);
+ pc += 1; break;
+
case bci_TESTLT_I:
fprintf(stderr, "TESTLT_I %d, fail to %d\n", literals[instrs[pc]],
instrs[pc+1]);
case bci_TESTLT_I:
fprintf(stderr, "TESTLT_I %d, fail to %d\n", literals[instrs[pc]],
instrs[pc+1]);