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