This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make sure that va_start() has matching va_end();
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 9 Dec 2001 23:49:19 +0000 (23:49 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 9 Dec 2001 23:49:19 +0000 (23:49 +0000)
from OpenBSD 3.0.

p4raw-id: //depot/perl@13574

x2p/util.c

index ab24808..73f3d0f 100644 (file)
@@ -183,6 +183,7 @@ croak(char *pat,...)
 
     va_start(args, pat);
     vfprintf(stderr,pat,args);
+    va_end(args);
 #else
     fprintf(stderr,pat,a1,a2,a3,a4);
 #endif
@@ -197,6 +198,7 @@ fatal(char *pat,...)
 
     va_start(args, pat);
     vfprintf(stderr,pat,args);
+    va_end(args);
 #else
     fprintf(stderr,pat,a1,a2,a3,a4);
 #endif
@@ -214,6 +216,7 @@ warn(char *pat,...)
 
     va_start(args, pat);
     vfprintf(stderr,pat,args);
+    va_end(args);
 #else
     fprintf(stderr,pat,a1,a2,a3,a4);
 #endif