msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

named constr tests

Browse Source
This commit is contained in:
crumbtoo
2024-01-25 13:02:12 -07:00
parent 4f39dd36f1
commit eeeac9cc85
3 changed files with 43 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GM.hs
View File

@@ -662,7 +662,7 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
compileC _ (Case _ _) =
error "GM compiler found a non-strict case expression, which should\
\ have been floated by Core2Core.gmPrep. This is bad!"
\ have been floated by Core2Core.gmPrep. This is a bug!"
compileC _ _ = error "yet to be implemented!"
@@ -731,6 +731,10 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
binds = (NameKey <$> as) `zip` [0..]
g' = binds ++ argOffset n g
c = compileE g' e
compileA _ (Alter _ as e) = error "GM.compileA found an untagged\
\ constructor, which should have\
\ been handled by Core2Core.gmPrep.\
\ This is a bug!"
inlineOp1 :: Env -> Instr -> Expr' -> Code
inlineOp1 g i a = compileE g a <> [i]