diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-07-09 17:37:57 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-07-09 17:37:57 +0200 |
commit | f995a671ceb28c2a83e5e5574c3cdb46fd5e0f57 (patch) | |
tree | e1a4f5b983c4c17b598b3e3172a8f76d464ec4e8 | |
parent | ee213019b7ffbb68e14ac9933edafd55867e7085 (diff) | |
download | compcert-f995a671ceb28c2a83e5e5574c3cdb46fd5e0f57.tar.gz compcert-f995a671ceb28c2a83e5e5574c3cdb46fd5e0f57.zip |
Use env1 instead of env to also have the type specifiers used in the return parameter.
-rw-r--r-- | cparser/Elab.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index 3f6f1f06..9ff7823f 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -1887,7 +1887,7 @@ let elab_fundef env spec name body loc = | TFun(ty_ret, Some params, vararg, attr) -> (ty_ret, params, vararg, attr) | _ -> fatal_error loc "wrong type for function definition" in (* Enter function in the environment, for recursive references *) - let (fun_id, sto1, env1,ty) = enter_or_refine_ident false loc env s sto ty in + let (fun_id, sto1, env1,ty) = enter_or_refine_ident false loc env1 s sto ty in (* Enter parameters in the environment *) let env2 = List.fold_left (fun e (id, ty) -> Env.add_ident e id Storage_default ty) |