Skip to content
Snippets Groups Projects
Commit 41b68f17 authored by Basile Desloges's avatar Basile Desloges
Browse files

[variadic] Store the translation

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