Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Don't inline stubs in Closure (fixes error in GPR#957) (#1008)

master
Mark Shinwell 2017-01-25 11:46:27 +00:00 committed by GitHub
parent 8ab0ac0300
commit b64d4e7149
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
asmcomp/closure.ml
View File

@ -1106,9 +1106,9 @@ and close_functions fenv cenv fun_defs =
)
fun_defs)
in
let inline_attribute, stub = match fun_defs with
| [_, Lfunction{attr = { inline; stub }}] -> inline, stub
| _ -> Default_inline, false (* recursive functions can't be inlined *)
let inline_attribute = match fun_defs with
| [_, Lfunction{attr = { inline; }}] -> inline
| _ -> Default_inline (* recursive functions can't be inlined *)
in
(* Update and check nesting depth *)
incr function_nesting_depth;
@ -1197,7 +1197,7 @@ and close_functions fenv cenv fun_defs =
| Never_inline -> min_int
| Unroll _ -> assert false
in
if stub || lambda_smaller ubody threshold
if lambda_smaller ubody threshold
then fundesc.fun_inline <- Some(fun_params, ubody);
(f, (id, env_pos, Value_closure(fundesc, approx))) in