diff options
| author | Pierre-Marie Pédrot | 2018-08-20 16:51:11 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-08-20 16:51:11 +0200 |
| commit | 504134c71da463a9d58eaf5b090b889805bd1b98 (patch) | |
| tree | 13d45a5b084c5fa4813bc13b0cdcbf3b853d7593 /kernel | |
| parent | c66c27781c555ec7301300cbf0d0342394c03981 (diff) | |
Do not inline let-bound functions in clambda optimization.
This was triggering an exponential blowup in the size of the generated
intermediate VM code.
Fixes #8277.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/clambda.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/clambda.ml b/kernel/clambda.ml index 7c00e40fb0..961036d3c5 100644 --- a/kernel/clambda.ml +++ b/kernel/clambda.ml @@ -269,7 +269,7 @@ let lam_subst_args subst args = let can_subst lam = match lam with | Lrel _ | Lvar _ | Lconst _ - | Lval _ | Lsort _ | Lind _ | Llam _ -> true + | Lval _ | Lsort _ | Lind _ -> true | _ -> false let rec simplify subst lam = |