grin-compiler/grin
1
1
Fork 0
mirror of https://github.com/grin-compiler/grin.git synced 2024-09-11 07:25:28 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #121 from Z-snails/fix-arity-raising

Browse Source 
Don't arity raise or unbox `grinMain`
This commit is contained in:
Andor Penzes 2021-05-28 11:46:18 +01:00 committed by GitHub
commit 2135fe545d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
grin/src/Transformations/Optimising/ArityRaising.hs
View File

@ -103,6 +103,7 @@ phase1 te = pdArityData . cata collect where
, isJust mtag
, p `notElem` (bdOther body)
, p `notElem` (snd <$> (filter ((/=fn) . fst) (bdFunCall body)))
, fn /= "grinMain"
]
in FunData $ case funData of
[] -> Map.empty

2
grin/src/Transformations/Optimising/GeneralizedUnboxing.hs
View File

@ -92,7 +92,7 @@ functionsToUnbox te (Program exts defs) = result where
nonCandidateTailCallMap = Map.withoutKeys tranisitiveTailCalls result0
candidateCalledByNonCandidate = (Set.unions $ Map.elems nonCandidateTailCallMap) `Set.intersection` result0
result = result0 `Set.difference` candidateCalledByNonCandidate
result = Set.delete "grinMain" $ result0 `Set.difference` candidateCalledByNonCandidate
result0 = Set.fromList $ step initial
initial = map funName $ filter (doesReturnAKnownProduct te . funName) defs