ghc/includes/Force_GC.lh

   1 %************************************************************************
   2 %*                                                                      *
   3 \subsection[Force_GC.lh]{}
   4 %*                                                                      *
   5 %************************************************************************
   6
   7 Multi-slurp protection:
   8 \begin{code}
   9 #ifndef Force_GC_H
  10 #define Force_GC_H
  11
  12 #ifdef FORCE_GC
  13 extern I_  force_GC;            /* Are we forcing GC ? */
  14 extern I_  GCInterval;          /* GC resolution  (in words allocated) */
  15 extern I_  alloc_since_last_major_GC; /* words allocated since last major GC */
  16
  17 #define DEFAULT_GC_INTERVAL  5000000
  18
  19 #endif /* FORCE_GC */
  20 \end{code}
  21
  22 End multi-slurp protection:
  23 \begin{code}
  24 #endif /* ! Force_GC_H */
  25 \end{code}