Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed a typo.

Browse source
This commit is contained in:
Samuel Hammersberg 2023-05-08 22:07:10 +02:00
parent 8836e6b91f
commit 94dd3bf1ea
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Codegen/Emits.hs
View file

@ -367,7 +367,7 @@ emitECased t e cases = do
preludeFuns :: LLVMIr -> Ident -> LLVMValue -> LLVMValue -> CompilerState LLVMIr preludeFuns :: LLVMIr -> Ident -> LLVMValue -> LLVMValue -> CompilerState LLVMIr
preludeFuns def (Ident xs) arg1 arg2 preludeFuns def (Ident xs) arg1 arg2
| "$langle$$langle$" `isPrefixOf` xs = pure $ Icmp LLSlt I8 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 | "$minus$" `isPrefixOf` xs = pure $ Sub I64 arg1 arg2
| "printChar$" `isPrefixOf` xs = do | "printChar$" `isPrefixOf` xs = do
pure . UnsafeRaw $ pure . UnsafeRaw $
@ -395,7 +395,7 @@ emitApp rt e1 e2 = do
pure $ Call FastCC (type2LlvmType rt) visibility name args 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 $ Comment $ show (type2LlvmType rt)
emit $ SetVariable vs call emit $ SetVariable vs call