2 Time-stamp: <Fri Jan 14 2000 13:47:43 Stardate: [-30]4202.87 hwloidl>
4 Prototypes of all parallel debugging functions.
7 #ifndef PARALLEL_DEBUG_H
8 #define PARALLEL_DEBUG_H
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);
34 void GIT(StgPtr node);
37 #if defined(GRAN) || defined(PAR)
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);
44 void PrintPacket(rtsPackBuffer *buffer);
45 void PrintGraph(StgClosure *p, int indent_level);
47 #endif /* GRAN || PAR */
49 #if !defined(GRAN) && !defined(PAR)
51 void info_hdr_type(StgClosure *closure, char *res);
52 char *info_type(StgClosure *closure);
53 char *info_type_by_ip(StgInfoTable *ip);
57 #endif /* PARALLEL_DEBUG_H */