1 (* Copyright (C) 2009 Matthew Fluet.
2 * Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
3 * Jagannathan, and Stephen Weeks.
4 * Copyright (C) 1997-2000 NEC Research Institute.
6 * MLton is released under a BSD-style license.
7 * See the file MLton-LICENSE for details.
10 signature X86_LOOP_INFO_STRUCTS =
15 signature X86_LOOP_INFO =
17 include X86_LOOP_INFO_STRUCTS
21 val createLoopInfo : {chunk: x86.Chunk.t, farLoops: bool} -> t
22 val createLoopInfo_msg : unit -> unit
24 val getLoopDistance : t * x86.Label.t * x86.Label.t -> int option
25 val getLoopLabels : t * x86.Label.t -> x86.Label.t list
26 val isLoopHeader : t * x86.Label.t -> bool