diff options
| author | simonmar <unknown> | 2005-04-05 09:23:12 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-04-05 09:23:12 +0000 |
| commit | 9392c09726a8018a447eff14f08eb76a060ec9e5 (patch) | |
| tree | dadc190e6b113a86a3396b34b23be3b05fe80d48 /ghc/rts/Interpreter.c | |
| parent | bdfa0107143179ddd8e539306442eefeb1913d48 (diff) | |
| download | haskell-9392c09726a8018a447eff14f08eb76a060ec9e5.tar.gz | |
[project @ 2005-04-05 09:22:27 by simonmar]
type fixup
Diffstat (limited to 'ghc/rts/Interpreter.c')
| -rw-r--r-- | ghc/rts/Interpreter.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/rts/Interpreter.c b/ghc/rts/Interpreter.c index 74f24540e8..d4a48307a2 100644 --- a/ghc/rts/Interpreter.c +++ b/ghc/rts/Interpreter.c @@ -1005,7 +1005,7 @@ run_BCO: } case bci_TESTLT_P: { - int discr = BCO_NEXT; + unsigned int discr = BCO_NEXT; int failto = BCO_NEXT; StgClosure* con = (StgClosure*)Sp[0]; if (GET_TAG(con) >= discr) { @@ -1015,7 +1015,7 @@ run_BCO: } case bci_TESTEQ_P: { - int discr = BCO_NEXT; + unsigned int discr = BCO_NEXT; int failto = BCO_NEXT; StgClosure* con = (StgClosure*)Sp[0]; if (GET_TAG(con) != discr) { |