|
|
@ -185,12 +185,6 @@ let pvar_is_cil_tmp pvar =
|
|
|
|
let name = Sil.pvar_to_string pvar in
|
|
|
|
let name = Sil.pvar_to_string pvar in
|
|
|
|
string_is_prefix "_tmp" name
|
|
|
|
string_is_prefix "_tmp" name
|
|
|
|
|
|
|
|
|
|
|
|
(** Check whether the program variable is a temporary one generated by EDG *)
|
|
|
|
|
|
|
|
let pvar_is_edg_tmp pvar =
|
|
|
|
|
|
|
|
Sil.pvar_is_local pvar &&
|
|
|
|
|
|
|
|
let name = Sil.pvar_to_string pvar in
|
|
|
|
|
|
|
|
string_is_prefix "__T" name
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(** Check whether the program variable is a temporary one generated by sawja *)
|
|
|
|
(** Check whether the program variable is a temporary one generated by sawja *)
|
|
|
|
let pvar_is_sawja_tmp pvar =
|
|
|
|
let pvar_is_sawja_tmp pvar =
|
|
|
|
Sil.pvar_is_local pvar &&
|
|
|
|
Sil.pvar_is_local pvar &&
|
|
|
@ -199,18 +193,10 @@ let pvar_is_sawja_tmp pvar =
|
|
|
|
string_is_prefix "$T" name ||
|
|
|
|
string_is_prefix "$T" name ||
|
|
|
|
string_is_prefix "$bc" name
|
|
|
|
string_is_prefix "$bc" name
|
|
|
|
|
|
|
|
|
|
|
|
let edg_native_tmp_var_name_prefix = "__temp_var_"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(** Check whether the program variable is a temporary one generated by EDG *)
|
|
|
|
|
|
|
|
let pvar_is_edg_tmp pvar =
|
|
|
|
|
|
|
|
Sil.pvar_is_local pvar &&
|
|
|
|
|
|
|
|
let name = Sil.pvar_to_string pvar in
|
|
|
|
|
|
|
|
string_is_prefix edg_native_tmp_var_name_prefix name
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(** Check whether the program variable is a temporary generated by the front-end *)
|
|
|
|
(** Check whether the program variable is a temporary generated by the front-end *)
|
|
|
|
let pvar_is_frontend_tmp pvar =
|
|
|
|
let pvar_is_frontend_tmp pvar =
|
|
|
|
if !Config.curr_language = Config.Java then pvar_is_sawja_tmp pvar
|
|
|
|
if !Config.curr_language = Config.Java then pvar_is_sawja_tmp pvar
|
|
|
|
else pvar_is_cil_tmp pvar || pvar_is_edg_tmp pvar
|
|
|
|
else pvar_is_cil_tmp pvar
|
|
|
|
|
|
|
|
|
|
|
|
(** Find the Letderef instruction used to declare normal variable [id],
|
|
|
|
(** Find the Letderef instruction used to declare normal variable [id],
|
|
|
|
and return the expression dereferenced to initialize [id] *)
|
|
|
|
and return the expression dereferenced to initialize [id] *)
|
|
|
|