2 * 2004 Matthew Fluet (mfluet@acm.org)
3 * Ported to MLton threads.
8 * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
9 * COPYRIGHT (c) 1989-1991 John H. Reppy
16 val sameTid : (thread_id * thread_id) -> bool
17 val compareTid : (thread_id * thread_id) -> order
18 val hashTid : thread_id -> word
20 val tidToString : thread_id -> string
23 signature THREAD_ID_EXTRA =
25 datatype thread_id' = datatype RepTypes.thread_id
26 include THREAD_ID where type thread_id = thread_id'
27 val new : unit -> thread_id
28 val bogus : string -> thread_id
30 val mark : thread_id -> unit
31 val unmark : thread_id -> unit
32 val isMarked : thread_id -> bool
34 val reset : unit -> unit