[project @ 2003-08-19 22:04:54 by krc]

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

diff --git a/ghc/rts/parallel/Parallel.c b/ghc/rts/parallel/Parallel.c
index 8dd7f88..414b7e4 100644 (file)
--- a/ghc/rts/parallel/Parallel.c
+++ b/ghc/rts/parallel/Parallel.c
@@ -37,6 +37,10 @@ char gr_filename[STATS_FILENAME_MAXLEN];
 GlobalParStats globalParStats;
 #endif
 
+#if defined(PAR)
+ullong startTime = 0;
+#endif
+
 #if defined(PAR) && !defined(DEBUG)
 // HAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCCCCCCCCKKKKKKKKKKKK
 // Definitely the wrong place for info_type in !DEBUG (see Printer.c) -- HWL
@@ -1002,7 +1006,7 @@ get_closure_info(StgClosure* node, nat *size, nat *ptrs, nat *nonptrs,
     strcpy(info_hdr_ty, "REMOTE_REF");
 #endif
     return info; 
-#endif DIST
+#endif /* DIST */
     
   case FETCH_ME_BQ:
     *size = sizeofW(StgFetchMeBlockingQueue);