max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

refactor: simplify adaptUncacheableContextFn

Browse source 
compiler.ir.result reports 0 allocations on happy path
This commit is contained in:
Sebastian Ullrich 2022-11-10 13:46:54 +01:00
parent fb941d0827
commit e7bf1cd3dc
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Lean/Parser/Types.lean
View file

@ -361,10 +361,9 @@ def adaptCacheableContext (f : CacheableParserContext → CacheableParserContext
/-- Run `p` under the given context transformation with a fresh cache, restore outer cache afterwards. -/
def adaptUncacheableContextFn (f : ParserContextCore → ParserContextCore) (p : ParserFn) : ParserFn := fun c s =>
-- extract and temporarily reset parser cache
let ⟨stack, lhsPrec, pos, ⟨tkCache, pCache⟩, errorMsg⟩ := s
let ⟨stack, lhsPrec, pos, ⟨tkCache, _⟩, errorMsg⟩ := p ⟨f c.toParserContextCore⟩ ⟨stack, lhsPrec, pos, ⟨tkCache, {}⟩, errorMsg⟩
⟨stack, lhsPrec, pos, ⟨tkCache, pCache⟩, errorMsg⟩
let parserCache := s.cache.parserCache
let s' := p ⟨f c.toParserContextCore⟩ { s with cache.parserCache := {} }
{ s' with cache.parserCache := parserCache }
/--
Run `p` and record result in parser cache for any further invocation with this `parserName`, parser context, and parser state.