ghc/rts/parallel/ParallelDebug.h

   1 /*
   2    Time-stamp: <Tue Mar 14 2000 17:15:59 Stardate: [-30]4503.59 hwloidl>
   3
   4    Prototypes of all parallel debugging functions.
   5 */
   6
   7 #ifndef PARALLEL_DEBUG_H
   8 #define PARALLEL_DEBUG_H
   9
  10 #if defined(GRAN) // || defined(PAR)
  11 void G_PRINT_NODE(StgClosure* node);
  12 void G_PPN(StgClosure* node);
  13 void G_INFO_TABLE(StgClosure* node);
  14 void G_CURR_THREADQ(StgInt verbose);
  15 void G_THREADQ(StgTSO* closure, StgInt verbose);
  16 void G_TSO(StgTSO* closure, StgInt verbose);
  17 void G_EVENT(rtsEventQ event, StgInt verbose);
  18 void G_EVENTQ(StgInt verbose);
  19 void G_PE_EQ(PEs pe, StgInt verbose);
  20 void G_SPARK(rtsSparkQ spark, StgInt verbose);
  21 void G_SPARKQ(rtsSparkQ spark, StgInt verbose);
  22 void G_CURR_SPARKQ(StgInt verbose);
  23 void G_PROC(StgInt proc, StgInt verbose);
  24 void GP(StgInt proc);
  25 void GCP(void);
  26 void GT(StgPtr tso);
  27 void GCT(void);
  28 void GEQ(void);
  29 void GTQ(PEs p);
  30 void GCTQ(void);
  31 void GSQ(PEs p);
  32 void GCSQ(void);
  33 void GN(StgPtr node);
  34 void GIT(StgPtr node);
  35 #endif
  36
  37 #if defined(GRAN) || defined(PAR)
  38
  39 char  *display_info_type(StgClosure *closure, char *str);
  40 void   info_hdr_type(StgClosure *closure, char *res);
  41 char  *info_type(StgClosure *closure);
  42 char  *info_type_by_ip(StgInfoTable *ip);
  43
  44 void   PrintPacket(rtsPackBuffer *buffer);
  45 void   PrintGraph(StgClosure *p, int indent_level);
  46 void   checkGraph(StgClosure *p, int rec_level);
  47
  48 void   checkPacket(rtsPackBuffer *packBuffer);
  49
  50 #endif /* GRAN || PAR */
  51
  52 #endif /* PARALLEL_DEBUG_H */