[project @ 1999-07-14 14:40:20 by simonpj]

[ghc-hetmet.git] / ghc / compiler / nativeGen / RegAllocInfo.lhs

diff --git a/ghc/compiler/nativeGen/RegAllocInfo.lhs b/ghc/compiler/nativeGen/RegAllocInfo.lhs
index 50d5709..811a39a 100644 (file)
--- a/ghc/compiler/nativeGen/RegAllocInfo.lhs
+++ b/ghc/compiler/nativeGen/RegAllocInfo.lhs
@@ -374,7 +374,7 @@ regUsage instr = case instr of
     TEST sz src dst    -> usage (opToReg src ++ opToReg dst) []
     CMP  sz src dst    -> usage (opToReg src ++ opToReg dst) []
     SETCC cond op      -> usage [] (opToReg op)
-    JXX cond label     -> usage [] []
+    JXX cond lbl       -> usage [] []
     JMP op             -> usage (opToReg op) freeRegs
     CALL imm           -> usage [] callClobberedRegs
     CLTD               -> usage [eax] [edx]