Do not add reset for op

This commit is contained in:
Cédric Pasteur 2010-06-22 11:00:31 +02:00 committed by Léonard Gérard
parent 206605a707
commit 6f2d5175e5

View file

@ -227,7 +227,7 @@ and translate res e =
(* create a new reset exp if necessary *)
| Eapp({ a_op = Ecall(op_desc, None) } as op, e_list) ->
let e_list = List.map (translate res) e_list in
if true_reset res then
if true_reset res & op_desc.op_kind <> Eop then
let op = { op with a_op = Ecall(op_desc, Some (exp_of_res res)) } in
{ e with e_desc = Eapp(op, e_list) }
else