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

Suppress "c_" prefix in Ctrl-Nbac generation

This commit is contained in:
Gwenaël Delaval 2017-02-23 02:45:04 +01:00
parent 5b215f832b
commit 2e107cd872
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/minils/ctrln/ctrlNbacGen.ml
View File

@ -391,7 +391,7 @@ let translate_eqs ~pref acc equs =
let prefix_vars ~pref vars : symb -> symb = let prefix_vars ~pref vars : symb -> symb =
let vars = List.fold_left begin fun acc { v_ident = id } -> let vars = List.fold_left begin fun acc { v_ident = id } ->
let v = mk_symb & name id in let v = mk_symb & name id in
SMap.add v (mk_symb ("c_" ^ Symb.to_string v)) acc SMap.add v (mk_symb (Symb.to_string v)) acc
end (SMap.empty) vars in end (SMap.empty) vars in
fun p -> pref (try SMap.find p vars with Not_found -> p) fun p -> pref (try SMap.find p vars with Not_found -> p)