Use StgWord64 instead of ullong

[ghc-hetmet.git] / rts / parallel / Parallel.c

diff --git a/rts/parallel/Parallel.c b/rts/parallel/Parallel.c
index 414b7e4..99a2bb2 100644 (file)
--- 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