ghc/includes/Info.lh

   1 \section[Info.lh]{Definitions for the Info Pointer Field}
   2
   3 Multi-slurp protection:
   4 \begin{code}
   5 #ifndef Info_H
   6 #define Info_H
   7 \end{code}
   8
   9 %************************************************************************
  10 %*                                                                      *
  11 \subsection[info-SM]{Storage-mgr interface things for the info ptr}
  12 %*                                                                      *
  13 %************************************************************************
  14
  15 \begin{code}
  16 #define INFO_FIXED_HDR                  1
  17 #define INFO_HDR_POSN                   0
  18 #define AFTER_INFO_HDR                  (INFO_HDR_POSN+INFO_FIXED_HDR)
  19 #define INFO_PTR(closure)               (((P_)(closure))[INFO_HDR_POSN])
  20 #define SET_INFO_PTR(closure,wd)        INFO_PTR(closure) = (W_) wd
  21 #define SET_STATIC_INFO_PTR(wd)         (W_) wd
  22 \end{code}
  23
  24 End multi-slurp protection:
  25 \begin{code}
  26 #endif /* Info_H */
  27 \end{code}