From ab9711d8af0e7eb8ae677079f3cc9d9a1907cdec Mon Sep 17 00:00:00 2001
From: ken <unknown>
Date: Sat, 18 May 2002 05:28:15 +0000
Subject: [PATCH] [project @ 2002-05-18 05:28:14 by ken] Add missing va_end's
 to va_start's.

---
 ghc/rts/RtsUtils.c |    5 ++++-
 ghc/rts/Schedule.c |    3 ++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/RtsUtils.c b/ghc/rts/RtsUtils.c
index e077204..3ff2f41 100644
--- a/ghc/rts/RtsUtils.c
+++ b/ghc/rts/RtsUtils.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsUtils.c,v 1.24 2002/02/14 16:55:07 sof Exp $
+ * $Id: RtsUtils.c,v 1.25 2002/05/18 05:28:14 ken Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -49,6 +49,7 @@ void barf(char *s, ...)
   fprintf(stderr, "\n");
   fflush(stderr);
   stg_exit(EXIT_INTERNAL_ERROR);
+  va_end(ap);
 }
 
 void prog_belch(char *s, ...)
@@ -61,6 +62,7 @@ void prog_belch(char *s, ...)
   } 
   vfprintf(stderr, s, ap);
   fprintf(stderr, "\n");
+  va_end(ap);
 }
 
 void belch(char *s, ...)
@@ -70,6 +72,7 @@ void belch(char *s, ...)
   /* don't fflush(stdout); WORKAROUND bug in Linux glibc */
   vfprintf(stderr, s, ap);
   fprintf(stderr, "\n");
+  va_end(ap);
 }
 
 /* result-checking malloc wrappers. */
diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 7e76e4b..3cf6d21 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1,5 +1,5 @@
 /* ---------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.143 2002/05/11 13:58:18 sof Exp $
+ * $Id: Schedule.c,v 1.144 2002/05/18 05:28:15 ken Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -3746,6 +3746,7 @@ sched_belch(char *s, ...)
 #endif
   vfprintf(stderr, s, ap);
   fprintf(stderr, "\n");
+  va_end(ap);
 }
 
 #endif /* DEBUG */
-- 
1.7.10.4