runtime/gc/call-stack.h

   1 /* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  * Copyright (C) 1997-2000 NEC Research Institute.
   4  *
   5  * MLton is released under a BSD-style license.
   6  * See the file MLton-LICENSE for details.
   7  */
   8
   9 #if (defined (MLTON_GC_INTERNAL_TYPES))
  10
  11 struct GC_callStackState {
  12   uint32_t numStackFrames;
  13   uint32_t *callStack;
  14 };
  15
  16 #endif /* (defined (MLTON_GC_INTERNAL_TYPES)) */
  17
  18 #if (defined (MLTON_GC_INTERNAL_FUNCS))
  19
  20 static inline void numStackFramesAux (GC_state s, GC_frameIndex i);
  21 static inline void callStackAux (GC_state s, GC_frameIndex i);
  22
  23 #endif /* (defined (MLTON_GC_INTERNAL_FUNCS)) */
  24
  25
  26 #if (defined (MLTON_GC_INTERNAL_BASIS))
  27
  28 PRIVATE uint32_t GC_numStackFrames (GC_state s);
  29 PRIVATE void GC_callStack (GC_state s, pointer p);
  30 PRIVATE uint32_t* GC_frameIndexSourceSeq (GC_state s, GC_frameIndex frameIndex);
  31
  32 #endif /* (defined (MLTON_GC_INTERNAL_BASIS)) */