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

Peano

Browse source
This commit is contained in:
sebastianselander 2023-05-05 15:09:51 +02:00
parent 22d9dd8efa
commit a720b9ffd8
3 changed files with 33 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Codegen/Emits.hs
View file

@ -325,6 +325,7 @@ emitApp rt e1 e2 = appEmitter e1 e2 []
let call =
case name of
TIR.Ident ('l' : 't' : '$' : _) -> Icmp LLSlt I64 (snd (head args')) (snd (args' !! 1))
TIR.Ident ('$' : 'm' : 'i' : 'n' : 'u' : 's' : '$' : '$' : _) -> Sub I64 (snd (head args')) (snd (args' !! 1))
_ -> Call FastCC (type2LlvmType rt) visibility name args'
emit $ Comment $ show rt
emit $ SetVariable vs call
@ -359,8 +360,8 @@ exprToValue = \case
(MIR.ELit i, _t) -> pure $ case i of
(MIR.LInt i) -> VInteger i
(MIR.LChar i) -> VChar $ ord i
(MIR.EVar (TIR.Ident "True"), _t) -> pure $ VInteger 1
(MIR.EVar (TIR.Ident "False"), _t) -> pure $ VInteger 0
(MIR.EVar (TIR.Ident "True$Bool"), _t) -> pure $ VInteger 1
(MIR.EVar (TIR.Ident "False$Bool"), _t) -> pure $ VInteger 0
(MIR.EVar name, t) -> do
funcs <- gets functions
cons <- gets constructors

4
src/Main.hs
View file

@ -187,4 +187,8 @@ prelude =
, " _ => True"
, " _ => False"
, "\n"
, -- The function body of - is replaced during code gen. It exists here for type checking purposes.
".- : Int -> Int -> Int"
, ".- x y = 0"
, "\n"
]