X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fincludes%2FParallel.h;h=92575506d0089cf0d479aa9d2588055618e321be;hb=c0be61743a875b59a1ffe6f0af6a50d4f9d091ef;hp=1ead4497f84b22f4cc88402e4dc68c9a6b4b56d0;hpb=dd4c28a9c706cce09ecc2c6f532969efa925532f;p=ghc-hetmet.git

diff --git a/ghc/includes/Parallel.h b/ghc/includes/Parallel.h
index 1ead449..9257550 100644
--- a/ghc/includes/Parallel.h
+++ b/ghc/includes/Parallel.h
@@ -1,6 +1,6 @@
 /*
-  Time-stamp: <Tue Mar 28 2000 23:50:54 Stardate: [-30]4574.76 hwloidl>
-  $Id: Parallel.h,v 1.3 2000/03/31 03:09:35 hwloidl Exp $
+  Time-stamp: <Tue Mar 06 2001 00:09:10 Stardate: [-30]6285.03 hwloidl>
+  $Id: Parallel.h,v 1.4 2001/03/22 03:51:09 hwloidl Exp $
  
   Definitions for GUM i.e. running on a parallel machine.
 
@@ -131,7 +131,7 @@ extern nat advisory_thread_count;
 
 extern rtsBool InGlobalGC;  /* Are we in the midst of performing global GC */
 
-static ullong startTime;    /* start of comp; in RtsStartup.c */
+extern ullong startTime;    /* start of comp; in RtsStartup.c */
 
 /* the spark pools proper */
 extern rtsSpark *pending_sparks_hd[];  /* ptr to start of a spark pool */ 
@@ -289,7 +289,7 @@ typedef struct rtsPackBuffer_ {
   StgInt /* nat */           size;
   StgInt /* nat */           unpacked_size;
   StgTSO       *tso;
-  StgBuffer    *buffer;  
+  StgWord      *buffer;  
 } rtsPackBuffer;
 
 //@node Macros,  , Prototypes, GranSim