perl.h: fix signedness warning with clang

[perl5.git] / perl.h

diff --git a/perl.h b/perl.h
index b13521a..412848c 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1709,7 +1709,7 @@ EXTERN_C char *crypt(const char *, const char *);
 
 #if defined(HAS_VSNPRINTF) && defined(HAS_C99_VARIADIC_MACROS) && !(defined(DEBUGGING) && !defined(PERL_USE_GCC_BRACE_GROUPS)) && !defined(PERL_GCC_PEDANTIC)
 #  ifdef PERL_USE_GCC_BRACE_GROUPS
 
 #if defined(HAS_VSNPRINTF) && defined(HAS_C99_VARIADIC_MACROS) && !(defined(DEBUGGING) && !defined(PERL_USE_GCC_BRACE_GROUPS)) && !defined(PERL_GCC_PEDANTIC)
 #  ifdef PERL_USE_GCC_BRACE_GROUPS

-#      define my_vsnprintf(buffer, len, ...) ({ int __len__ = vsnprintf(buffer, len, __VA_ARGS__); if ((len) > 0 && (Size_t)__len__ >= (len)) Perl_croak_nocontext("panic: vsnprintf buffer overflow"); __len__; })
+#      define my_vsnprintf(buffer, len, ...) ({ int __len__ = vsnprintf(buffer, len, __VA_ARGS__); if ((len) > 0 && (Size_t)__len__ >= (Size_t)(len)) Perl_croak_nocontext("panic: vsnprintf buffer overflow"); __len__; })

 #      define PERL_MY_VSNPRINTF_GUARDED
 #  else
 #    define my_vsnprintf(buffer, len, ...) vsnprintf(buffer, len, __VA_ARGS__)
 #      define PERL_MY_VSNPRINTF_GUARDED
 #  else
 #    define my_vsnprintf(buffer, len, ...) vsnprintf(buffer, len, __VA_ARGS__)


@@ -5006,8 +5006,14 @@ struct interpreter {
 
 /* Set up PERLVAR macros for populating structs */
 #  define PERLVAR(prefix,var,type) type prefix##var;
 
 /* Set up PERLVAR macros for populating structs */
 #  define PERLVAR(prefix,var,type) type prefix##var;

+
+/* 'var' is an array of length 'n' */

 #  define PERLVARA(prefix,var,n,type) type prefix##var[n];
 #  define PERLVARA(prefix,var,n,type) type prefix##var[n];

+
+/* initialize 'var' to init' */

 #  define PERLVARI(prefix,var,type,init) type prefix##var;
 #  define PERLVARI(prefix,var,type,init) type prefix##var;

+
+/* like PERLVARI, but make 'var' a const */

 #  define PERLVARIC(prefix,var,type,init) type prefix##var;
 
 struct interpreter {
 #  define PERLVARIC(prefix,var,type,init) type prefix##var;
 
 struct interpreter {