ghc/includes/Ticky.h

   1 /* ----------------------------------------------------------------------------
   2  * $Id: Ticky.h,v 1.2 1998/12/02 13:21:45 simonm Exp $
   3  *
   4  * Closures
   5  *
   6  * -------------------------------------------------------------------------- */
   7
   8 #ifndef TICKY_H
   9 #define TICKY_H
  10
  11
  12 #ifndef TICKY
  13 /* just stubs if no ticky-ticky profiling*/
  14 #define TICK_ENT_CAF_ENTERED(Node)      /* enter CAF */
  15 #define TICK_ENT_IND(Node)      /* enter indirection */
  16 #define TICK_ENT_VIA_NODE()     /* enter node */
  17 #define TICK_UPD_EXISTING()     /* entering an update frame */
  18 #define TICK_UPD_SQUEEZED()     /* squeezed an update frame */
  19 #define TICK_UPDATED_SET_UPDATED(updclosure) /* updating a closure w/ ind */
  20 #define TICK_ALLOC_HEAP(words)  /* allocate some words on the heap */
  21 #define TICK_UNALLOC_HEAP(words)  /* unallocate some words on the heap */
  22 #define TICK_ALLOC_UPD_PAP(DYN_HS,NArgWords,N,PapSize)
  23 #define TICK_ALLOC_PRIM(hdr,args,n,size)
  24 #define TICK_ENT_PAP(pap)       /* entering a PAP */
  25 #define TICK_UPD_PAP_IN_NEW(NArgWords)
  26 #define TICK_UPD_PAP_IN_PLACE()
  27 #define TICK_UPDF_PUSHED()
  28 #define TICK_SEQF_PUSHED()
  29 #else
  30 #error ticky-ticky not implemented!
  31 #endif
  32
  33 #endif /* TICKY_H */