/*
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.
#define GRAN_YIELD(ptrs) \
{ \
- extern nat context_switch; \
+ extern int context_switch; \
if ( (CurrentTime[CurrentProc]>=EndOfTimeSlice) || \
((CurrentTime[CurrentProc]>=TimeOfNextEvent) && \
(TimeOfNextEvent!=0) && !IgnoreEvents )) { \
*/
/* flag set by signal handler to precipitate a context switch */
-nat context_switch = 0;
+int context_switch = 0;
/* if this flag is set as well, give up execution */
rtsBool interrupted = rtsFalse;
/* Context switch flag.
* Locks required : sched_mutex
*/
-extern nat RTS_VAR(context_switch);
+extern int RTS_VAR(context_switch);
extern rtsBool RTS_VAR(interrupted);
/* In Select.c */