This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mark MB_CUR_MAX constant as unsigned long
authorNicolas R <atoomic@cpan.org>
Wed, 29 Nov 2017 21:07:15 +0000 (14:07 -0700)
committerNicolas R <atoomic@cpan.org>
Wed, 29 Nov 2017 21:23:09 +0000 (14:23 -0700)
Avoid a warning in locale.c

comparison of integers of different signs: 'int' and 'unsigned long'
is_utf8 = MB_CUR_MAX >= STRLENs(MAX_UNICODE_UTF8);

RT #132516

perl.h

diff --git a/perl.h b/perl.h
index 2200a47..900452d 100644 (file)
--- a/perl.h
+++ b/perl.h
   cewchar.h includes a correct definition of MB_CUR_MAX and it is copied here
   since cewchar.h can't be included this early */
 #if defined(UNDER_CE) && (_MSC_VER < 1300)
-#  define MB_CUR_MAX 1
+#  define MB_CUR_MAX 1uL
 #endif
 
 # include <stdarg.h>