diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-06-08 14:35:20 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-06-08 14:35:20 +0000 |
| commit | b6c66a92f80e50e80ba44c8faa1450abfb5edd46 (patch) | |
| tree | ce4df07078b986cd263b13bfdd105bc729eb8e61 /rts/Disassembler.c | |
| parent | 1046d33458f1f4a12c119dcf07fad9eaaa2a37f9 (diff) | |
| download | haskell-b6c66a92f80e50e80ba44c8faa1450abfb5edd46.tar.gz | |
fix warnings
Diffstat (limited to 'rts/Disassembler.c')
| -rw-r--r-- | rts/Disassembler.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/rts/Disassembler.c b/rts/Disassembler.c index b084a29b89..00f700fe16 100644 --- 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: - debugBelch("CCALL marshaller at 0x%x\n", + debugBelch("CCALL marshaller at 0x%lx\n", 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++) - debugBelch("0x%x ", literals[i + instrs[pc]] ); + debugBelch("0x%lx ", literals[i + instrs[pc]] ); 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: - 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: - 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: - 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: - 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: - 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: - 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; |