From b0422639e54340b867447fdc747134934e2f2349 Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 13 Apr 2005 15:07:20 +0000 Subject: [PATCH] [project @ 2005-04-13 15:07:20 by simonmar] Fix breakage in i386 floating-pt comparisons --- ghc/compiler/nativeGen/MachCodeGen.hs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/ghc/compiler/nativeGen/MachCodeGen.hs b/ghc/compiler/nativeGen/MachCodeGen.hs index 4fda4ee..dc4c91f 100644 --- a/ghc/compiler/nativeGen/MachCodeGen.hs +++ b/ghc/compiler/nativeGen/MachCodeGen.hs @@ -3917,6 +3917,25 @@ condIntReg cond x y = do -- in return (Any I32 code) +#endif + +#if i386_TARGET_ARCH + +condFltReg cond x y = do + CondCode _ cond cond_code <- condFltCode cond x y + tmp <- getNewRegNat I8 + let + code dst = cond_code `appOL` toOL [ + SETCC cond (OpReg tmp), + MOVZxL I8 (OpReg tmp) (OpReg dst) + ] + -- in + return (Any I32 code) + +#endif + +#if x86_64_TARGET_ARCH + condFltReg cond x y = do CondCode _ cond cond_code <- condFltCode cond x y tmp1 <- getNewRegNat wordRep @@ -3962,6 +3981,7 @@ condFltReg cond x y = do ] -- in return (Any I32 code) + #endif -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -- 1.7.10.4