X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FGranSim.h;h=32f37ffc63d8ca90dbc056e51d03b361f5f11d09;hb=a1947dc78b38b2aced923e2f6d04031a0cb94009;hp=0fe366d76cff6a8de3699a5d08d95b29cd6f6564;hpb=dd4c28a9c706cce09ecc2c6f532969efa925532f;p=ghc-hetmet.git

diff --git a/ghc/includes/GranSim.h b/ghc/includes/GranSim.h
index 0fe366d..32f37ff 100644
--- a/ghc/includes/GranSim.h
+++ b/ghc/includes/GranSim.h
@@ -1,6 +1,6 @@
 /*
   Time-stamp: <Fri Mar 24 2000 23:55:42 Stardate: [-30]4554.98 hwloidl>
-  $Id: GranSim.h,v 1.3 2000/03/31 03:09:35 hwloidl Exp $
+  $Id: GranSim.h,v 1.4 2004/11/10 04:17:50 wolfgang Exp $
   
   Headers for GranSim specific objects.
   
@@ -301,7 +301,7 @@ void GranSimBlock(StgTSO *tso, PEs proc, StgClosure *node);
 
 #define GRAN_YIELD(ptrs)                                   \
         {                                                   \
-          extern  nat context_switch;                          \
+          extern int context_switch;                          \
           if ( (CurrentTime[CurrentProc]>=EndOfTimeSlice) ||   \
                ((CurrentTime[CurrentProc]>=TimeOfNextEvent) && \
 	        (TimeOfNextEvent!=0) && !IgnoreEvents )) {     \