diff options
author | Kosyrev Serge <_deepfire@feelingofgreen.ru> | 2018-09-15 13:25:04 +0300 |
---|---|---|
committer | Kosyrev Serge <_deepfire@feelingofgreen.ru> | 2018-09-15 13:27:59 +0300 |
commit | 66fd575af0d286e6ea5d46d31db838058405af14 (patch) | |
tree | 4f1d3fa16118f90932f5d17aa2f197bb9f6073a5 | |
parent | b0b09ee4e7578b9ee0fef1aa9ae541018eafb1d8 (diff) |
compValue: allow literal integers to be processed
-rw-r--r-- | src/LambdaCube/Compiler/CoreToIR.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/LambdaCube/Compiler/CoreToIR.hs b/src/LambdaCube/Compiler/CoreToIR.hs index 4b75c182..8972d6b9 100644 --- a/src/LambdaCube/Compiler/CoreToIR.hs +++ b/src/LambdaCube/Compiler/CoreToIR.hs | |||
@@ -434,6 +434,9 @@ compValue x = case x of | |||
434 | A2 "V2" (EFloat a) (EFloat b) -> IR.VV2F $ IR.V2 (realToFrac a) (realToFrac b) | 434 | A2 "V2" (EFloat a) (EFloat b) -> IR.VV2F $ IR.V2 (realToFrac a) (realToFrac b) |
435 | A3 "V3" (EFloat a) (EFloat b) (EFloat c) -> IR.VV3F $ IR.V3 (realToFrac a) (realToFrac b) (realToFrac c) | 435 | A3 "V3" (EFloat a) (EFloat b) (EFloat c) -> IR.VV3F $ IR.V3 (realToFrac a) (realToFrac b) (realToFrac c) |
436 | A4 "V4" (EFloat a) (EFloat b) (EFloat c) (EFloat d) -> IR.VV4F $ IR.V4 (realToFrac a) (realToFrac b) (realToFrac c) (realToFrac d) | 436 | A4 "V4" (EFloat a) (EFloat b) (EFloat c) (EFloat d) -> IR.VV4F $ IR.V4 (realToFrac a) (realToFrac b) (realToFrac c) (realToFrac d) |
437 | A2 "V2" (EInt a) (EInt b) -> IR.VV2I $ fromIntegral <$> IR.V2 a b | ||
438 | A3 "V3" (EInt a) (EInt b) (EInt c) -> IR.VV3I $ fromIntegral <$> IR.V3 a b c | ||
439 | A4 "V4" (EInt a) (EInt b) (EInt c) (EInt d) -> IR.VV4I $ fromIntegral <$> IR.V4 a b c d | ||
437 | A2 "V2" (EBool a) (EBool b) -> IR.VV2B $ IR.V2 a b | 440 | A2 "V2" (EBool a) (EBool b) -> IR.VV2B $ IR.V2 a b |
438 | A3 "V3" (EBool a) (EBool b) (EBool c) -> IR.VV3B $ IR.V3 a b c | 441 | A3 "V3" (EBool a) (EBool b) (EBool c) -> IR.VV3B $ IR.V3 a b c |
439 | A4 "V4" (EBool a) (EBool b) (EBool c) (EBool d) -> IR.VV4B $ IR.V4 a b c d | 442 | A4 "V4" (EBool a) (EBool b) (EBool c) (EBool d) -> IR.VV4B $ IR.V4 a b c d |