X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fparallel%2FParallel.c;h=99a2bb221b48d35dd5d71017a7a43e67875fcb8c;hb=2007d2138cf17efe6a1701510dbafdfc30e8926c;hp=414b7e440602ffb580ddd65ed1df9e5d9dc8ff26;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/rts/parallel/Parallel.c b/rts/parallel/Parallel.c
index 414b7e4..99a2bb2 100644
--- a/rts/parallel/Parallel.c
+++ b/rts/parallel/Parallel.c
@@ -38,7 +38,7 @@ GlobalParStats globalParStats;
 #endif
 
 #if defined(PAR)
-ullong startTime = 0;
+StgWord64 startTime = 0;
 #endif
 
 #if defined(PAR) && !defined(DEBUG)
@@ -345,7 +345,7 @@ int prog_argc, rts_argc;
   ASSERT(startTime==0);
   // startTime = msTime();
   startTime = CURRENT_TIME;
-  ullong_format_string(CURRENT_TIME, time_string, rtsFalse/*no commas!*/);
+  showStgWord64(CURRENT_TIME, time_string, rtsFalse/*no commas!*/);
   fprintf(gr_file, "PE %2u [%s]: TIME\n", thisPE, time_string);
 
 # if 0
@@ -407,7 +407,7 @@ end_gr_simulation(void)
 {
    char time_string[TIME_STR_LEN];
 
-   ullong_format_string(CURRENT_TIME, time_string, rtsFalse/*no commas!*/);
+   showStgWord64(CURRENT_TIME, time_string, rtsFalse/*no commas!*/);
 
    if (RtsFlags.GranFlags.GranSimStats.Suppressed)
      return;
@@ -530,7 +530,7 @@ end_gr_simulation(void)
 {
   char time_string[TIME_STR_LEN];
 
-  ullong_format_string(CURRENT_TIME-startTime, time_string, rtsFalse/*no commas!*/);
+  showStgWord64(CURRENT_TIME-startTime, time_string, rtsFalse/*no commas!*/);
 
   fprintf(stderr, "Computation finished after @ %s @ ms. %d sparks created, %d sparks ignored. Check %s for details.\n",
 	    time_string, sparksCreated, sparksIgnored, gr_filename);
@@ -590,10 +590,10 @@ StgInt sparkname, len;
   StgWord id;
   char time_string[TIME_STR_LEN], node_str[NODE_STR_LEN];
 # if defined(GRAN)
-  ullong_format_string(time,
+  showStgWord64(time,
 		       time_string, rtsFalse/*no commas!*/);
 # elif defined(PAR)
-  ullong_format_string(time,
+  showStgWord64(time,
 		       time_string, rtsFalse/*no commas!*/);
 # endif
   output_file = gr_file;
@@ -702,10 +702,10 @@ rtsBool mandatory_thread;
   FILE *output_file; // DEBUGGING ONLY !!!!!!!!!!!!!!!!!!!!!!!!!1
   char time_string[TIME_STR_LEN];
 # if defined(GRAN)
-  ullong_format_string(TIME_ON_PROC(proc), 
+  showStgWord64(TIME_ON_PROC(proc), 
 		       time_string, rtsFalse/*no commas!*/);
 # elif defined(PAR)
-  ullong_format_string(CURRENT_TIME,
+  showStgWord64(CURRENT_TIME,
 		       time_string, rtsFalse/*no commas!*/);
 # endif