x86fun.sml 395 Bytes
structure X86Fun : MACHINE_FUN = struct

  structure I = X86Instr

  type t = { name : string,
             body : I.t list }

  fun machineFunctionName (f: t) = #name f

  fun machineFunctionBody (f: t) = #body f

  fun machineFunctionRename f =
    raise (Fail "needed later for register allocation")

  fun machineFunctionSpill f =
    raise (Fail "needed later for register allocation")
end