Commit 41b68f17 authored by Basile Desloges's avatar Basile Desloges
Browse files

[variadic] Store the translation

parent d9a06210
......@@ -292,6 +292,9 @@ let overloaded_call ~fundec overload block loc mk_call vf args =
raise Translate_call_exn;
in
(* Store the translation *)
Replacements.add new_callee vf.vf_decl;
(* Rebuild the call *)
Self.result ~current:true ~level:2
"Translating call to the specialized version %a."
......@@ -635,6 +638,9 @@ let format_fun_call ~fundec env format_fun scope loc mk_call vf args =
new_callee.vname <- new_name;
new_globals := glob :: !new_globals;
(* Store the translation *)
Replacements.add new_callee vf.vf_decl;
(* Translate the call *)
Self.result ~current:true ~level:2
"Translating call to %s to a call to the specialized version %s."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment