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

Fixed a bug with pattern matching on literals.

Browse source
This commit is contained in:
Samuel Hammersberg 2023-03-29 15:12:33 +02:00
parent 82f1b38f1b
commit f69151a7ce
2 changed files with 19 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Codegen/Codegen.hs
View file

@ -404,7 +404,7 @@ emitECased t e cases = do
emit $ Store ty val Ptr stackPtr
emit $ Br label
emit $ Label lbl_failPos
emitCases _rt ty label stackPtr vs (Branch (MIR.PLit i, _) exp) = do
emitCases _rt ty label stackPtr vs (Branch (MIR.PLit i, t) exp) = do
emit $ Comment "Plit"
let i' = case i of
(MIR.LInt i, _) -> VInteger i
@ -412,7 +412,7 @@ emitECased t e cases = do
ns <- getNewVar
lbl_failPos <- (\x -> TIR.Ident $ "failed_" <> show x) <$> getNewLabel
lbl_succPos <- (\x -> TIR.Ident $ "success_" <> show x) <$> getNewLabel
emit $ SetVariable ns (Icmp LLEq ty vs i')
emit $ SetVariable ns (Icmp LLEq (type2LlvmType t) vs i')
emit $ BrCond (VIdent ns ty) lbl_succPos lbl_failPos
emit $ Label lbl_succPos
val <- exprToValue exp
@ -432,6 +432,7 @@ emitECased t e cases = do
lbl_failPos <- (\x -> TIR.Ident $ "failed_" <> show x) <$> getNewLabel
emit $ Label lbl_failPos
emitCases _rt ty label stackPtr _vs (Branch (MIR.PEnum _id, _) exp) = do
-- //TODO Penum wrong, acts as a catch all
emit $ Comment "Penum"
val <- exprToValue exp
emit $ Store ty val Ptr stackPtr

18
test_program.crf
View file

@ -4,7 +4,21 @@ data List () where {
Nil : List ()
};
main = sumlength (Cons 1 (Cons 2 (Cons 3 (Cons 4 (Cons 5 Nil)))));
main = head (repeat 10 5);
head : List () -> Int ;
head x = case x of {
Cons h _ => h ;
};
repeat : Int -> Int -> List () ;
repeat x n = case n of {
0 => Nil ;
n => Cons x (repeat x (n + minusOne)) ;
};
minusOne : Int ;
minusOne = 9223372036854775807 + 9223372036854775807 + 1;
-- take the length of a list
length : List () -> Int ;
@ -13,7 +27,7 @@ length x = case x of {
Nil => 0 ;
};
-- sum a list
sum : List () -> Int ;
sum : List () -> Int ;
sum x = case x of {
Cons a xs => a + sum xs ;
Nil => 0 ;