1 (* Copyright (C) 1999-2008 Henry Cejtin, Matthew Fluet, Suresh
2 * Jagannathan, and Stephen Weeks.
3 * Copyright (C) 1997-2000 NEC Research Institute.
5 * MLton is released under a BSD-style license.
6 * See the file MLton-LICENSE for details.
9 signature AMD64_CODEGEN_STRUCTS =
11 structure CCodegen: C_CODEGEN
12 structure Machine: MACHINE
13 sharing Machine = CCodegen.Machine
16 signature AMD64_CODEGEN =
18 include AMD64_CODEGEN_STRUCTS
20 val implementsPrim: Machine.Type.t Machine.Prim.t -> bool
21 val output: {program: Machine.Program.t,
22 outputC: unit -> {file: File.t,
23 print: string -> unit,
25 outputS: unit -> {file: File.t,
26 print: string -> unit,
27 done: unit -> unit}} -> unit