perl.h: define PERL_BITFIELD8/16/32 as U8/U16/U32

[perl5.git] / perl.h

diff --git a/perl.h b/perl.h
index c75dded..65009e1 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3827,13 +3827,13 @@ typedef        struct crypt_data {     /* straight from /usr/include/crypt.h */
 
 /* macros to define bit-fields in structs. */
 #ifndef PERL_BITFIELD8
-#  define PERL_BITFIELD8 unsigned
+#  define PERL_BITFIELD8 U8
 #endif
 #ifndef PERL_BITFIELD16
-#  define PERL_BITFIELD16 unsigned
+#  define PERL_BITFIELD16 U16
 #endif
 #ifndef PERL_BITFIELD32
-#  define PERL_BITFIELD32 unsigned
+#  define PERL_BITFIELD32 U32
 #endif
 
 #include "sv.h"
@@ -7143,8 +7143,8 @@ A synonym for L</grok_numeric_radix>
 #define PERL_SCAN_TRAILING            0x10 /* grok_number_flags() allow trailing
                                               and set IS_NUMBER_TRAILING */
 
-#ifdef PERL_CORE    /* These are considered experimental, so not exposed
-                       publicly */
+/* These are considered experimental, so not exposed publicly */
+#if defined(PERL_CORE) || defined(PERL_EXT)
 /* grok_??? don't warn about very large numbers which are <= UV_MAX;
  * output: found such a number */
 #  define PERL_SCAN_SILENT_NON_PORTABLE 0x20