diff --git a/src/kernel_services/ast_queries/cil.ml b/src/kernel_services/ast_queries/cil.ml index 4d594e5a29a7ca06b7fcae6f83a2e019dd14d1ca..695600d6793e3315cf8301ee56e07dade97e4744 100644 --- a/src/kernel_services/ast_queries/cil.ml +++ b/src/kernel_services/ast_queries/cil.ml @@ -6245,7 +6245,9 @@ let uniqueVarNames (f: file) : unit = let processLocal (v: varinfo) = (* start from original name to avoid putting another _0 in case of conflicts. *) - let lookupname = v.vorig_name in + let lookupname = + if v.vorig_name = "" then v.vname else v.vorig_name + in let data = CurrentLoc.get () in let newname, oldloc = Alpha.newAlphaName