Benjamin_Loison/Synchronous_reactive_systems
1
0
Fork 0
Code Issues 7 Pull Requests Packages Projects Releases Wiki Activity

[C] malloc->calloc + conditions merged in free_state_*

Browse Source
This commit is contained in:
Arnaud DABY-SEESARAM 2022-12-20 16:52:59 +01:00
parent a673c447e3
commit 8c3e3d1eac
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ast_to_c.ml
View File

@ -237,7 +237,7 @@ let cp_init_aux_nodes fmt (node, h) =
| Some n -> | Some n ->
begin begin
Format.fprintf fmt "%a\t\tif(!state->is_reset) {\n\ Format.fprintf fmt "%a\t\tif(!state->is_reset) {\n\
\t\t\tstate->aux_states[%d] = malloc (sizeof (%s));\n\ \t\t\tstate->aux_states[%d] = calloc (1, sizeof (%s));\n\
\t\t}\n\ \t\t}\n\
\t\t((%s*)(state->aux_states[%d]))->is_init = true;\n\ \t\t((%s*)(state->aux_states[%d]))->is_init = true;\n\
\t\t((%s*)(state->aux_states[%d]))->is_reset = state->is_reset;\n" \t\t((%s*)(state->aux_states[%d]))->is_reset = state->is_reset;\n"

17
src/cprint.ml
View File

@ -91,13 +91,16 @@ let cp_state_frees fmt (iprog, sts) =
| None -> () | None -> ()
| Some callee_name -> | Some callee_name ->
let callee_st = Hashtbl.find sts callee_name in let callee_st = Hashtbl.find sts callee_name in
if callee_st.nt_count_app > 0 then if callee_st.nt_count_app > 0
Format.fprintf fmt "\tif (st->aux_states[%d])\n\ then
\t\tfree_state_%s((t_state_%s*)(st->aux_states[%d]));\n" Format.fprintf fmt "\tif (st->aux_states[%d]) {\n\
idx callee_name callee_name idx; \t\tfree_state_%s((t_state_%s*)(st->aux_states[%d]));\n\
Format.fprintf fmt "\tif (st->aux_states[%d])\n\ \t\tfree (st->aux_state[%d]);\n\t}\n%a"
\t\tfree(st->aux_states[%d]);\n%a" idx callee_name callee_name idx
idx idx cp_free_aux (i+1, caller_name) idx cp_free_aux (i+1, caller_name)
else Format.fprintf fmt "\tif (st->aux_states[%d])\n\
\t\tfree(st->aux_states[%d]);\n%a"
idx idx cp_free_aux (i+1, caller_name)
in in
Hashtbl.iter Hashtbl.iter
(fun node_name node_st -> (fun node_name node_st ->