$NetBSD: patch-au,v 1.2 2003/09/28 20:13:55 tron Exp $

--- tcl/panic.c.orig	Fri Feb 24 22:19:49 1995
+++ tcl/panic.c	Sun Sep 28 22:12:20 2003
@@ -19,7 +19,7 @@
 
 #include <stdio.h>
 #include <stdlib.h>
-#include <varargs.h>
+#include <stdarg.h>
 
 /*
  *----------------------------------------------------------------------
@@ -39,18 +39,18 @@
 
 #ifndef lint
 void
-panic(va_alist)
-    va_dcl			/* char *format, then any number of additional
+panic(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;
+    char *format;
 
-    va_start(args);
-    format = va_arg(args, char *);
+    va_start(args, format);
     (void) vfprintf(stderr, format, args);
+    va_end(args);
     (void) fflush(stderr);
     abort();
 }