From 00cb203dd99edf074aa405ad75b8217eb110561b Mon Sep 17 00:00:00 2001 From: Adrien Guatto Date: Wed, 27 Apr 2011 14:02:50 +0200 Subject: [PATCH] Revert "C generation: fixed struct field name in step() call." This reverts commit fc920d88ea9de68ed459b810b77968650a86b9b4. --- compiler/obc/c/cgen.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/obc/c/cgen.ml b/compiler/obc/c/cgen.ml index cdd260f..6c1a231 100644 --- a/compiler/obc/c/cgen.ml +++ b/compiler/obc/c/cgen.ml @@ -68,7 +68,7 @@ let int_of_static_exp se = let output_names_list sig_info = let remove_option ad = match ad.a_name with - | Some n -> "out_" ^ n + | Some n -> n | None -> Error.message no_location Error.Eno_unnamed_output in List.map remove_option sig_info.node_outputs @@ -396,13 +396,13 @@ let generate_function_call var_env obj_env outvl objn args = in (** Act according to the length of our list. Step functions with - multiple return values will return a structure, and we take care of + multiple return values will return a structure, and we care of assigning each field to the corresponding local variable. *) match outvl with | [] -> [Csexpr fun_call] | [outv] when is_op classln -> let ty = assoc_type_lhs outv var_env in - create_affect_stm outv fun_call ty + create_affect_stm outv fun_call ty | _ -> (* Remove options *) let out_sig = output_names_list sig_info in