diff options
| -rw-r--r-- | codegen.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -272,7 +272,7 @@ castOperand orig@(A.LocalReference (A.IntegerType s1) _) t2@(TypeInt s2) castOperand orig@(A.ConstantOperand (A.C.Int s1 val)) t2@(TypeInt s2) | fromIntegral s1 == s2 = return orig | fromIntegral s1 < s2 = return $ A.ConstantOperand (A.C.Int (fromIntegral s2) val) - | fromIntegral s1 > s2 = throwError $ "Integer " ++ show val ++ " too large for tyoe '" ++ pshow t2 ++ "'" + | fromIntegral s1 > s2 = throwError $ "Integer " ++ show val ++ " too large for type '" ++ pshow t2 ++ "'" castOperand _ _ = undefined |