AnalysisStateUtil
type mem_safety_violation =
| InvalidFree
| InvalidDeref
| InvalidMemTrack
| InvalidMemcleanup
val set_mem_safety_flag : mem_safety_violation -> unit