(* Liveness analysis. Annotate mach code with the set of regs live at each point. *) val fundecl: Mach.fundecl -> unit