idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-14 22:02:07 +03:00
Code Issues Projects Releases Wiki Activity

[ perf ] only normalise primitives on small strings on the RHS

Browse Source
This commit is contained in:
Guillaume Allais 2022-03-17 17:41:08 +00:00 committed by G. Allais
parent d7133b2652
commit 1149000fb1
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/TTImp/Elab/App.idr
View File

@ -836,12 +836,13 @@ checkApp rig elabinfo nest env fc (IVar fc' n) expargs autoargs namedargs exp
boundSafe : Constant -> ElabMode -> Bool
boundSafe _ (InLHS _) = True -- always need to expand on LHS
boundSafe (BI x) _ = abs x < 100 -- only do this for relatively small bounds.
-- Once it gets too big, we might be making the term
-- bigger than it would have been without evaluating!
-- only do this for relatively small bounds.
-- Once it gets too big, we might be making the term
-- bigger than it would have been without evaluating!
boundSafe (BI x) _ = abs x < 100
boundSafe (Str str) _ = length str < 10
boundSafe _ _ = True
updateElabInfo : List Name -> ElabMode -> Name ->
List RawImp -> ElabInfo -> Core ElabInfo
-- If it's a primitive function applied to a constant on the LHS, treat it