jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Generate correct call for operators

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-27 17:48:21 +02:00
parent 221eea1644
commit 627979534a
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
compiler/main/mls2obc.ml
View file

@ -313,6 +313,10 @@ and translate_eq_list map call_context act_list =
and mk_node_call map call_context app loc name_list args =
match app.Minils.a_op with
| Minils.Efun f when Mls_utils.is_op f ->
let e = mk_exp (Eop(f, args)) in
[], [], [], [Aassgn(List.hd name_list, e) ]
| Minils.Enode f | Minils.Efun f ->
let o = mk_obj_call_from_context call_context (gen_obj_name f) in
let obj =