973e014 · Idris-dev · git.iko.soy

git.iko.soy/Idris-dev

Fix floating point arithmetic code generation

commit973e01431a061f8ef84513ba3534ba0bbd906f2c authorEdwin Brady <eb@cs.st-andrews.ac.uk> dateSun 23 Sep 2012, 17:13 (14 years ago) parente2587d5

1 file changed+1−1

unifiedsplit

src/IRTS/CodegenC.hs+1−1

@@ -175,7 +175,7 @@ doOp v LLe [l, r] = v ++ "INTOP(<=," ++ creg l ++ ", " ++ creg r ++ ")"

175175doOp v LGt [l, r] = v ++ "INTOP(>," ++ creg l ++ ", " ++ creg r ++ ")"

176176doOp v LGe [l, r] = v ++ "INTOP(>=," ++ creg l ++ ", " ++ creg r ++ ")"

177177

178−doOp v LFPlus [l, r] = v ++ "FLOATOP(+" ++ creg l ++ ", " ++ creg r ++ ")"

178+doOp v LFPlus [l, r] = v ++ "FLOATOP(+," ++ creg l ++ ", " ++ creg r ++ ")"

179179doOp v LFMinus [l, r] = v ++ "FLOATOP(-," ++ creg l ++ ", " ++ creg r ++ ")"

180180doOp v LFTimes [l, r] = v ++ "FLOATOP(*" ++ creg l ++ ", " ++ creg r ++ ")"

181181doOp v LFDiv [l, r] = v ++ "FLOATOP(/," ++ creg l ++ ", " ++ creg r ++ ")"