projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
comply with Haskell 98 by not allowing extra commas in import/export lists
[ghc-hetmet.git]
/
rts
/
Disassembler.c
diff --git
a/rts/Disassembler.c
b/rts/Disassembler.c
index
b084a29
..
00f700f
100644
(file)
--- a/
rts/Disassembler.c
+++ b/
rts/Disassembler.c
@@
-49,7
+49,7
@@
disInstr ( StgBCO *bco, int pc )
instrs[pc], (signed int)instrs[pc+1]);
pc += 2; break;
case bci_CCALL:
instrs[pc], (signed int)instrs[pc+1]);
pc += 2; break;
case bci_CCALL:
- debugBelch("CCALL marshaller at 0x%x\n",
+ debugBelch("CCALL marshaller at 0x%lx\n",
literals[instrs[pc]] );
pc += 1; break;
case bci_STKCHECK:
literals[instrs[pc]] );
pc += 1; break;
case bci_STKCHECK:
@@
-102,7
+102,7
@@
disInstr ( StgBCO *bco, int pc )
case bci_PUSH_UBX:
debugBelch("PUSH_UBX ");
for (i = 0; i < instrs[pc+1]; i++)
case bci_PUSH_UBX:
debugBelch("PUSH_UBX ");
for (i = 0; i < instrs[pc+1]; i++)
- debugBelch("0x%x ", literals[i + instrs[pc]] );
+ debugBelch("0x%lx ", literals[i + instrs[pc]] );
debugBelch("\n");
pc += 2; break;
case bci_PUSH_APPLY_N:
debugBelch("\n");
pc += 2; break;
case bci_PUSH_APPLY_N:
@@
-162,29
+162,29
@@
disInstr ( StgBCO *bco, int pc )
pc += 2; break;
case bci_TESTLT_I:
pc += 2; break;
case bci_TESTLT_I:
- debugBelch("TESTLT_I %d, fail to %d\n", literals[instrs[pc]],
+ debugBelch("TESTLT_I %ld, fail to %d\n", literals[instrs[pc]],
instrs[pc+1]);
pc += 2; break;
case bci_TESTEQ_I:
instrs[pc+1]);
pc += 2; break;
case bci_TESTEQ_I:
- debugBelch("TESTEQ_I %d, fail to %d\n", literals[instrs[pc]],
+ debugBelch("TESTEQ_I %ld, fail to %d\n", literals[instrs[pc]],
instrs[pc+1]);
pc += 2; break;
case bci_TESTLT_F:
instrs[pc+1]);
pc += 2; break;
case bci_TESTLT_F:
- debugBelch("TESTLT_F %d, fail to %d\n", literals[instrs[pc]],
+ debugBelch("TESTLT_F %ld, fail to %d\n", literals[instrs[pc]],
instrs[pc+1]);
pc += 2; break;
case bci_TESTEQ_F:
instrs[pc+1]);
pc += 2; break;
case bci_TESTEQ_F:
- debugBelch("TESTEQ_F %d, fail to %d\n", literals[instrs[pc]],
+ debugBelch("TESTEQ_F %ld, fail to %d\n", literals[instrs[pc]],
instrs[pc+1]);
pc += 2; break;
case bci_TESTLT_D:
instrs[pc+1]);
pc += 2; break;
case bci_TESTLT_D:
- debugBelch("TESTLT_D %d, fail to %d\n", literals[instrs[pc]],
+ debugBelch("TESTLT_D %ld, fail to %d\n", literals[instrs[pc]],
instrs[pc+1]);
pc += 2; break;
case bci_TESTEQ_D:
instrs[pc+1]);
pc += 2; break;
case bci_TESTEQ_D:
- debugBelch("TESTEQ_D %d, fail to %d\n", literals[instrs[pc]],
+ debugBelch("TESTEQ_D %ld, fail to %d\n", literals[instrs[pc]],
instrs[pc+1]);
pc += 2; break;
instrs[pc+1]);
pc += 2; break;