From: ken <unknown>
Date: Sat, 18 May 2002 05:28:15 +0000 (+0000)
Subject: [project @ 2002-05-18 05:28:14 by ken]
X-Git-Tag: Approx_11550_changesets_converted~2025
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ab9711d8af0e7eb8ae677079f3cc9d9a1907cdec;p=ghc-hetmet.git

[project @ 2002-05-18 05:28:14 by ken]
Add missing va_end's to va_start's.
---

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 */