[project @ 2000-04-05 14:26:31 by panne]
authorpanne <unknown>
Wed, 5 Apr 2000 14:26:31 +0000 (14:26 +0000)
committerpanne <unknown>
Wed, 5 Apr 2000 14:26:31 +0000 (14:26 +0000)
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).

ghc/includes/Block.h
ghc/includes/ClosureTypes.h
ghc/includes/PrimOps.h
ghc/includes/Rts.h
ghc/includes/StgTypes.h
ghc/includes/TailCalls.h

index f6a695c..bf21ba3 100644 (file)
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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 */
index e1a9f2c..0fea250 100644 (file)
@@ -1,5 +1,5 @@
 /* ----------------------------------------------------------------------------
- * $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 */
index 9fc84c2..8510c19 100644 (file)
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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 */
index 40deb1e..2fa8591 100644 (file)
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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 */
index 19e377c..50ad8f0 100644 (file)
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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 */
index 87908d5..f0fd6a6 100644 (file)
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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 */