1 /* Copyright (C) 1999-2007 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 #if (defined (MLTON_GC_INTERNAL_FUNCS))
11 static inline void copyForThreadInternal (pointer dst
, pointer src
);
12 static inline void threadInternalObjptr (GC_state s
, objptr
*opp
);
13 static inline void updateWeaksForMarkCompact (GC_state s
);
14 static void updateForwardPointersForMarkCompact (GC_state s
, GC_stack currentStack
);
15 static void updateBackwardPointersAndSlideForMarkCompact (GC_state s
, GC_stack currentStack
);
16 static void majorMarkCompactGC (GC_state s
);
18 #endif /* (defined (MLTON_GC_INTERNAL_FUNCS)) */