diff options
| author | Maxime Dénès | 2018-09-03 12:36:45 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-09-03 12:36:45 +0200 |
| commit | 3bc0c82700a805e889198b810cc0148f6479cbe1 (patch) | |
| tree | eac2cce0546a79cb5786e0570c0c55b9b4438e4b /pretyping | |
| parent | 7456164386a87df83763109e12fa8aaa71a96104 (diff) | |
| parent | 14a1786158ec093faa172a5b95a93b06ad43b7af (diff) | |
Merge PR #7085: Turn the kernel reduction sharing flag into an argument passed in the cache
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/cbv.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/cbv.ml b/pretyping/cbv.ml index da6e26cc4b..fc24e9b3a9 100644 --- a/pretyping/cbv.ml +++ b/pretyping/cbv.ml @@ -455,7 +455,8 @@ let cbv_norm infos constr = (* constant bodies are normalized at the first expansion *) let create_cbv_infos flgs env sigma = let infos = create - (fun old_info tab c -> cbv_stack_term { tab; infos = old_info; sigma } TOP (subs_id 0) c) + ~share:true (** Not used by cbv *) + ~repr:(fun old_info tab c -> cbv_stack_term { tab; infos = old_info; sigma } TOP (subs_id 0) c) flgs env (Reductionops.safe_evar_value sigma) in |