let mk_global_c_vars name ty =
let vi = (Cil.makeGlobalVar ~logic:true name ty) in
vi.vghost<-true;
let ini = {init=Some(Cil.makeZeroInit ty)} in
globals_queue:=GVar(vi,ini,vi.vdecl)::(!globals_queue);
Globals.Vars.add vi ini;
set_varinfo name vi