From 0af52aaf0afffbd29b7b831f294c9bd07c1a4b36 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 25 May 2001 18:33:46 +0000 Subject: [PATCH] [project @ 2001-05-25 18:33:46 by sof] wibble - silence CPP warnings --- ghc/rts/RtsStartup.c | 4 ++-- ghc/rts/StgRun.h | 5 +++-- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/ghc/rts/RtsStartup.c b/ghc/rts/RtsStartup.c index 9d58492..4f33e59 100644 --- a/ghc/rts/RtsStartup.c +++ b/ghc/rts/RtsStartup.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsStartup.c,v 1.50 2001/03/22 03:51:10 hwloidl Exp $ + * $Id: RtsStartup.c,v 1.51 2001/05/25 18:33:46 sof Exp $ * * (c) The GHC Team, 1998-2000 * @@ -259,7 +259,7 @@ shutdownHaskellAndExit(int n) exit(n); #else stg_exit(n); -#endif; +#endif } void diff --git a/ghc/rts/StgRun.h b/ghc/rts/StgRun.h index 5a5bdcc..e015169 100644 --- a/ghc/rts/StgRun.h +++ b/ghc/rts/StgRun.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: StgRun.h,v 1.5 1999/11/03 15:01:51 simonmar Exp $ + * $Id: StgRun.h,v 1.6 2001/05/25 18:33:46 sof Exp $ * * (c) The GHC Team, 1998-1999 * @@ -14,4 +14,5 @@ extern StgThreadReturnCode StgRun(StgFunPtr f, StgRegTable *basereg); EXTFUN(StgReturn); -#endif STGRUN_H +#endif /* STGRUN_H */ + -- 1.7.10.4