Added prog_name to perfModuleInit(), so argv[0] can be used
authorRobert Brunner <rbrunner@uiuc.edu>
Wed, 12 Jul 1995 21:36:20 +0000 (21:36 +0000)
committerRobert Brunner <rbrunner@uiuc.edu>
Wed, 12 Jul 1995 21:36:20 +0000 (21:36 +0000)
to generate a unique tace file name.

src/ck-perf/perf-none.c
src/ck-perf/perf-proj.c
src/ck-perf/perf-sum.c

index de7612b5d4c4154ae80041a9ef0a5f336f6ada94..75060f486b5d12d6876764e4ecf0f1206e06b7b0 100644 (file)
  * REVISION HISTORY:
  *
  * $Log$
- * Revision 2.3  1995-07-11 16:48:17  gursoy
+ * Revision 2.4  1995-07-12 21:36:20  brunner
+ * Added prog_name to perfModuleInit(), so argv[0] can be used
+ * to generate a unique tace file name.
+ *
+ * Revision 2.3  1995/07/11  16:48:17  gursoy
  * added void to perfModuleInit
  *
  * Revision 2.2  1995/07/10  22:29:40  brunner
@@ -35,7 +39,7 @@ static char ident[] = "@(#)$Header$";
 
 CpvExtern(int, RecdPerfMsg);
 
-void perfModuleInit() {}
+void perfModuleInit(prog_name) char *prog_name; {}
 
 program_name(s,m) char *s, *m; {}
 
index 252ad2f16f26fb7055b2711b579bfa4606a97e3b..ac606018c2fb6996230ab4cd869faddb321d9e17 100644 (file)
  * REVISION HISTORY:
  *
  * $Log$
- * Revision 2.3  1995-07-11 20:34:38  knauff
+ * Revision 2.4  1995-07-12 21:36:20  brunner
+ * Added prog_name to perfModuleInit(), so argv[0] can be used
+ * to generate a unique tace file name.
+ *
+ * Revision 2.3  1995/07/11  20:34:38  knauff
  * Changed 'uint' to 'un_int' to avoid crashes with gcc v 2.5.8
  * (on the SP, at least)
  *
@@ -80,8 +84,11 @@ CpvExtern(int,chareCount);
 CpvExtern(int,pseudoCount);
 CpvExtern(int,msgCount);
 
-perfModuleInit()
+perfModuleInit(prog_name)
+char *prog_name;
 {
+  char nodename[80];
+
   CpvInitialize(char*,pgm);
   CpvInitialize(char*,machine);
   CpvInitialize(char*,log_file_name);
@@ -96,6 +103,8 @@ perfModuleInit()
   CpvInitialize(int,begin_event);
   CpvInitialize(un_int,begin_processing_time);
   CpvInitialize(FILE*,state_file_fd);
+  sprintf(nodename,"%d",CmiMyPe());
+  program_name(prog_name,nodename);
 }
 
 void PrintStsFile(str)
index a54a1c734e5b10a4e0067469eca637658cd62cf2..27dcea951e45b8a6db1d86714f76524e9a2d95dd 100644 (file)
  ***************************************************************************
  * REVISION HISTORY:
  *      $Log$
- *      Revision 2.4  1995-07-12 20:23:47  brunner
- *      Changed global variable time to now, to avoid conflict with
- *      system function time.
+ *      Revision 2.5  1995-07-12 21:36:20  brunner
+ *      Added prog_name to perfModuleInit(), so argv[0] can be used
+ *      to generate a unique tace file name.
+ *
+ * Revision 2.4  1995/07/12  20:23:47  brunner
+ * Changed global variable time to now, to avoid conflict with
+ * system function time.
  *
  * Revision 2.3  1995/07/10  22:29:40  brunner
  * Created perfModuleInit() to handle CPV macros
@@ -52,8 +56,11 @@ CpvDeclare(int,start_processing_time);
 
 CpvExtern(int,RecdStatMsg);
 
-perfModuleInit()
+perfModuleInit(prog_name)
+char *prog_name;
 {
+  char nodename[80];
+
   CpvInitialize(char*,pgm);
   CpvInitialize(int,RecdPerfMsg);
   CpvInitialize(int,display_index);
@@ -64,6 +71,8 @@ perfModuleInit()
   CpvInitialize(int,timestep);
   CpvInitialize(int,init_time);
   CpvInitialize(int,start_processing_time);
+  sprintf(nodename,"%d",CmiMyPe());
+  program_name(prog_name,nodename);
 }
 
 trace_creation(msg_type, entry, envelope)