let loc_of_value = function
| M.V_pointer(_,loc) -> loc
| M.V_array _ as v ->
debug "[loc_of_value] ARRAY %a" M.pp_value v ;
WpLog.fatal "[loc_of_value] ARRAY %a" M.pp_value v
| v -> debug "[loc_of_value] %a" M.pp_value v ;
WpLog.fatal "[loc_of_value] %a" M.pp_value v