From 94dd3bf1ea6278b1c0a2c6a4e3f65f15c89db11c Mon Sep 17 00:00:00 2001 From: Samuel Hammersberg Date: Mon, 8 May 2023 22:07:10 +0200 Subject: [PATCH] Fixed a typo. --- src/Codegen/Emits.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Codegen/Emits.hs b/src/Codegen/Emits.hs index b323438..6aabb72 100644 --- a/src/Codegen/Emits.hs +++ b/src/Codegen/Emits.hs @@ -367,7 +367,7 @@ emitECased t e cases = do preludeFuns :: LLVMIr -> Ident -> LLVMValue -> LLVMValue -> CompilerState LLVMIr preludeFuns def (Ident xs) arg1 arg2 | "$langle$$langle$" `isPrefixOf` xs = pure $ Icmp LLSlt I8 arg1 arg2 - | "$langle$" `isPrefixOf` xs = pure $ Icmp LLSlt I8 arg1 arg2 + | "$langle$" `isPrefixOf` xs = pure $ Icmp LLSlt I64 arg1 arg2 | "$minus$" `isPrefixOf` xs = pure $ Sub I64 arg1 arg2 | "printChar$" `isPrefixOf` xs = do pure . UnsafeRaw $ @@ -395,7 +395,7 @@ emitApp rt e1 e2 = do pure $ Call FastCC (type2LlvmType rt) visibility name args - call <- preludeFuns call name (snd (head args)) (snd (args !! 1)) + call <- preludeFuns (fst (head typ)) call name (snd (head args)) (snd (args !! 1)) emit $ Comment $ show (type2LlvmType rt) emit $ SetVariable vs call