Skip to content

Commit

Permalink
Merge pull request #5457 from unisonweb/cp/remove-inlining
Browse files Browse the repository at this point in the history
Remove ANF.inline'ing
  • Loading branch information
dolio authored Nov 16, 2024
2 parents 336a9a5 + a8e18d8 commit c289e8b
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions unison-runtime/src/Unison/Runtime/Machine.hs
Original file line number Diff line number Diff line change
Expand Up @@ -2026,11 +2026,10 @@ cacheAdd0 ntys0 termSuperGroups sands cc = do
rtm <- updateMap (M.fromList $ zip rs [ntm ..]) (refTm cc)
-- check for missing references
let arities = fmap (head . ANF.arities) int <> builtinArities
inlinfo = ANF.buildInlineMap int <> builtinInlineInfo
rns = RN (refLookup "ty" rty) (refLookup "tm" rtm) (flip M.lookup arities)
combinate :: Word64 -> (Reference, SuperGroup Symbol) -> (Word64, EnumMap Word64 Comb)
combinate n (r, g) =
(n, emitCombs rns r n $ ANF.inline inlinfo g)
(n, emitCombs rns r n g)
let combRefUpdates = (mapFromList $ zip [ntm ..] rs)
let combIdFromRefMap = (M.fromList $ zip rs [ntm ..])
let newCacheableCombs =
Expand Down

0 comments on commit c289e8b

Please sign in to comment.