This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change name of intermediary macro, and #undef it
authorKarl Williamson <khw@cpan.org>
Fri, 16 Oct 2020 03:28:33 +0000 (21:28 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 16 Oct 2020 03:40:52 +0000 (21:40 -0600)
Instead of using an underscore to mark this as private, we can #undef
this intermediary after use, as it isn't needed to be defined outside
the small area is is used in in perl.h

perl.h

diff --git a/perl.h b/perl.h
index fc39d48..28fcd0b 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3818,10 +3818,10 @@ intrinsic function, see its documents for more details.
 #ifdef DEBUGGING
 #  define ASSUME(x) assert(x)
 #  if __has_builtin(__builtin_unreachable)
-#    define HAS_BUILTIN_UNREACHABLE_
+#    define HAS_BUILTIN_UNREACHABLE
 #  elif (defined(__GNUC__) && (   __GNUC__ > 4                              \
                                || __GNUC__ == 4 && __GNUC_MINOR__ >= 5))
-#    define HAS_BUILTIN_UNREACHABLE_
+#    define HAS_BUILTIN_UNREACHABLE
 #  endif
 #endif
 
@@ -3830,7 +3830,7 @@ intrinsic function, see its documents for more details.
 #    define ASSUME(x)      /* ASSUME() generates warnings on Solaris */
 #  endif
 #  define NOT_REACHED
-#elif defined(HAS_BUILTIN_UNREACHABLE_)
+#elif defined(HAS_BUILTIN_UNREACHABLE)
 #  ifndef ASSUME
 #    define ASSUME(x) ((x) ? (void) 0 : __builtin_unreachable())
 #  endif
@@ -3850,6 +3850,7 @@ intrinsic function, see its documents for more details.
 #  endif
 #  define NOT_REACHED ASSUME(!"UNREACHABLE")
 #endif
+#undef HAS_BUILTIN_UNREACHABLE
 
 /* Some unistd.h's give a prototype for pause() even though
    HAS_PAUSE ends up undefined.  This causes the #define