$OpenBSD: patch-tcl_panic_c,v 1.2 2010/05/22 14:23:48 espie Exp $
--- tcl/panic.c.orig	Fri Feb 24 22:19:49 1995
+++ tcl/panic.c	Sat May 22 16:16:44 2010
@@ -19,7 +19,7 @@ static char rcsid[] = "$Header: /home/agamotto/mark/pk
 
 #include <stdio.h>
 #include <stdlib.h>
-#include <varargs.h>
+#include <stdarg.h>
 
 /*
  *----------------------------------------------------------------------
@@ -39,19 +39,18 @@ static char rcsid[] = "$Header: /home/agamotto/mark/pk
 
 #ifndef lint
 void
-panic(va_alist)
-    va_dcl			/* char *format, then any number of additional
+panic(const char *format, ...)
+    				/* char *format, then any number of additional
 				 * values to be printed under the control of
 				 * format.  This is all just the same as you'd
 				 * pass to printf. */
 {
-    char *format;
     va_list args;
 
-    va_start(args);
-    format = va_arg(args, char *);
+    va_start(args, format);
     (void) vfprintf(stderr, format, args);
     (void) fflush(stderr);
+    va_end(args);
     abort();
 }
 #else
