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

Fixed prelude and codegen

Browse source
This commit is contained in:
sebastianselander 2023-05-08 11:23:06 +02:00
parent dbc1dc4982
commit 5af9509a5f
2 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Codegen/Emits.hs
View file

@ -367,9 +367,8 @@ emitApp rt e1 e2 = do
Global <$ Map.lookup name consts
<|> Global <$ Map.lookup (name, t) funcs
-- this piece of code could probably be improved, i.e remove the double `const Global`
call <- case name of
Ident ('l' : 't' : '$' : _) ->
Ident ('$' : 'l' : 'a' : 'n' : 'g' : 'l' : 'e' : '$' : _) ->
pure $ Icmp LLSlt I64 (snd (head args)) (snd (args !! 1))
Ident ('$' : 'm' : 'i' : 'n' : 'u' : 's' : '$' : '$' : _) ->
pure $ Sub I64 (snd (head args)) (snd (args !! 1))