diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:21:30 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:21:30 +0000 |
| commit | d31dfb32ea936c22628b508c28a36c12e631430a (patch) | |
| tree | 76bc1a29b3c5646a8f552af820a81abff49aa492 /compiler/nativeGen/MachCodeGen.hs | |
| parent | c9c4951cc1d76273be541fc4791e131e418956aa (diff) | |
| download | haskell-d31dfb32ea936c22628b508c28a36c12e631430a.tar.gz | |
Implemented and fixed bugs in CmmInfo handling
Diffstat (limited to 'compiler/nativeGen/MachCodeGen.hs')
| -rw-r--r-- | compiler/nativeGen/MachCodeGen.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs index 154eed866e..1d1cfa1596 100644 --- a/compiler/nativeGen/MachCodeGen.hs +++ b/compiler/nativeGen/MachCodeGen.hs @@ -3182,13 +3182,13 @@ outOfLineFloatOp mop res args if localRegRep res == F64 then - stmtToInstrs (CmmCall target [(res,FloatHint)] args NoC_SRT) + stmtToInstrs (CmmCall target [(res,FloatHint)] args CmmUnsafe) else do uq <- getUniqueNat let tmp = LocalReg uq F64 KindNonPtr -- in - code1 <- stmtToInstrs (CmmCall target [(tmp,FloatHint)] args NoC_SRT) + code1 <- stmtToInstrs (CmmCall target [(tmp,FloatHint)] args CmmUnsafe) code2 <- stmtToInstrs (CmmAssign (CmmLocal res) (CmmReg (CmmLocal tmp))) return (code1 `appOL` code2) where |