/* -----------------------------------------------------------------------------
- * $Id: Block.h,v 1.6 1999/11/09 15:47:07 simonmar Exp $
+ * $Id: Block.h,v 1.7 2000/04/05 14:26:31 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
#define BLOCKS_TO_MBLOCKS(n) \
(1 + (W_)MBLOCK_ROUND_UP((n-BLOCKS_PER_MBLOCK) * BLOCK_SIZE) / MBLOCK_SIZE)
-#endif BLOCK_H
+#endif /* BLOCK_H */
/* ----------------------------------------------------------------------------
- * $Id: ClosureTypes.h,v 1.12 2000/01/13 14:34:00 hwloidl Exp $
+ * $Id: ClosureTypes.h,v 1.13 2000/04/05 14:26:31 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
#define N_CLOSURE_TYPES 65
-#endif CLOSURETYPES_H
+#endif /* CLOSURETYPES_H */
/* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.48 2000/03/31 03:09:35 hwloidl Exp $
+ * $Id: PrimOps.h,v 1.49 2000/04/05 14:26:31 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
#define stg_sig_ignore(sig,mask) sig_install(sig,STG_SIG_IGN,0,(sigset_t *)mask)
#define stg_sig_catch(sig,ptr,mask) sig_install(sig,STG_SIG_HAN,ptr,(sigset_t *)mask)
-#endif PRIMOPS_H
+#endif /* PRIMOPS_H */
/* -----------------------------------------------------------------------------
- * $Id: Rts.h,v 1.12 2000/01/13 14:34:01 hwloidl Exp $
+ * $Id: Rts.h,v 1.13 2000/04/05 14:26:31 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
#define stg_min(a,b) ({typeof(a) _a = (a), _b = (b); _a <= _b ? _a : _b; })
#define stg_max(a,b) ({typeof(a) _a = (a), _b = (b); _a <= _b ? _b : _a; })
-#endif RTS_H
+#endif /* RTS_H */
/* -----------------------------------------------------------------------------
- * $Id: StgTypes.h,v 1.8 2000/04/04 13:40:27 panne Exp $
+ * $Id: StgTypes.h,v 1.9 2000/04/05 14:26:31 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
#define stgCast(ty,e) ((ty)(e))
-#endif STGTYPES_H
-
+#endif /* STGTYPES_H */
/* -----------------------------------------------------------------------------
- * $Id: TailCalls.h,v 1.4 1999/03/01 17:40:55 simonm Exp $
+ * $Id: TailCalls.h,v 1.5 2000/04/05 14:26:31 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
goto *target; \
}
-#endif i386_TARGET_ARCH
+#endif /* i386_TARGET_ARCH */
/* -----------------------------------------------------------------------------
Tail calling on Sparc
#define FB_
#define FE_
-#endif sparc_TARGET_ARCH
+#endif /* sparc_TARGET_ARCH */
/* -----------------------------------------------------------------------------
Tail calling on Alpha
#define FB_
#define FE_
-#endif alpha_TARGET_ARCH
+#endif /* alpha_TARGET_ARCH */
/* -----------------------------------------------------------------------------
Tail calling on HP
#endif /* !USE_MINIINTERPRETER */
-#endif TAILCALLS_H
-
+#endif /* TAILCALLS_H */