Commit a5841e53 authored by panne's avatar panne

[project @ 2000-04-05 14:26:31 by panne]

Changed a bunch of `#endif FOO' to `#endif /* FOO */', the former is
not strictly ANSI (don't know if the latter is, but `gcc -Wall -ansi
-pedantic' is silent then).
parent 4d252b8a
/* -----------------------------------------------------------------------------
* $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
*
......@@ -110,4 +110,4 @@ static inline bdescr *Bdescr(StgPtr p)
#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
*
......@@ -83,4 +83,4 @@
#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
*
......@@ -900,4 +900,4 @@ extern StgInt sig_install (StgInt, StgInt, StgStablePtr, sigset_t *);
#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
*
......@@ -101,4 +101,4 @@
#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
*
......@@ -194,5 +194,4 @@ typedef StgClosurePtr L_;
#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
*
......@@ -50,7 +50,7 @@ extern void __DISCARD__(void);
goto *target; \
}
#endif i386_TARGET_ARCH
#endif /* i386_TARGET_ARCH */
/* -----------------------------------------------------------------------------
Tail calling on Sparc
......@@ -68,7 +68,7 @@ extern void __DISCARD__(void);
#define FB_
#define FE_
#endif sparc_TARGET_ARCH
#endif /* sparc_TARGET_ARCH */
/* -----------------------------------------------------------------------------
Tail calling on Alpha
......@@ -87,7 +87,7 @@ register void *_procedure __asm__("$27");
#define FB_
#define FE_
#endif alpha_TARGET_ARCH
#endif /* alpha_TARGET_ARCH */
/* -----------------------------------------------------------------------------
Tail calling on HP
......@@ -120,5 +120,4 @@ register void *_procedure __asm__("$27");
#endif /* !USE_MINIINTERPRETER */
#endif TAILCALLS_H
#endif /* TAILCALLS_H */
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment