perl.h: White space, comments only

perl.h

@@ -71,13 +71,13 @@ is used in functions that take a thread context initial parameter.
 #  define HAS_C99 1
 #endif
 
+/* =========================================================================
+ * The defines from here to the following ===== line are unfortunately
+ * duplicated in makedef.pl, and changes here MUST also be made there */
+
 /* See L<perlguts/"The Perl API"> for detailed notes on
  * MULTIPLICITY and PERL_IMPLICIT_SYS */
 
-/* XXX NOTE that from here --> to <-- the same logic is
- * repeated in makedef.pl, so be certain to update
- * both places when editing. */
-
 #ifdef USE_ITHREADS
 #  if !defined(MULTIPLICITY)
 #    define MULTIPLICITY
@@ -110,7 +110,8 @@ is used in functions that take a thread context initial parameter.
 #   define USE_REENTRANT_API
 #endif
 
-/* <--- here ends the logic shared by perl.h and makedef.pl */
+/* end of makedef.pl logic duplication.  But there are other groups below.
+ * ========================================================================= */
 
 /*
 =for apidoc_section $directives
@@ -1106,6 +1107,9 @@ violations are fatal.
 #  endif
 #endif
 
+/* end of makedef.pl logic duplication.  But there are other groups below.
+ * ========================================================================= */
+
 #ifdef USE_LOCALE
 #   define HAS_SKIP_LOCALE_INIT /* Solely for XS code to test for this
                                    #define */
@@ -1324,6 +1328,10 @@ violations are fatal.
 #  endif
 #  define PERL_LOCALE_CATEGORIES_ALL_COUNT_  PERL_LOCALE_CATEGORIES_COUNT_ + 1
 
+/* =========================================================================
+ * The defines from here to the following ===== line are unfortunately
+ * duplicated in makedef.pl, and changes here MUST also be made there */
+
 #  if defined(USE_ITHREADS) && ! defined(NO_LOCALE_THREADS)
 #    define USE_LOCALE_THREADS
 #  endif
@@ -1343,7 +1351,8 @@ violations are fatal.
     * forbidden.  Availability is when we are using POSIX 2008 locales, or
     * Windows for quite a few releases now. */
 #  if defined(USE_LOCALE_THREADS) && ! defined(NO_THREAD_SAFE_LOCALE)
-#    if defined(USE_POSIX_2008_LOCALE) || (defined(WIN32) && defined(_MSC_VER))
+#    if  defined(USE_POSIX_2008_LOCALE)                                     \
+     || (defined(WIN32) && defined(_MSC_VER))
 #      define USE_THREAD_SAFE_LOCALE
 #    endif
 #  endif
@@ -1400,7 +1409,7 @@ violations are fatal.
                                     && defined(USE_THREAD_SAFE_LOCALE)))
 #    define USE_PERL_SWITCH_LOCALE_CONTEXT
 #  endif
-#endif
+#endif  /* End of USE_LOCALE */
 
 /* end of makedef.pl logic duplication
  * ========================================================================= */
@@ -7152,7 +7161,7 @@ the plain locale pragma without a parameter (S<C<use locale>>) is in effect.
      */
 #  define LOCALE_LOCK_(cond_to_panic_if_already_locked)                     \
         STMT_START {                                                        \
-            CLANG_DIAG_IGNORE(-Wthread-safety)	     	                    \
+            CLANG_DIAG_IGNORE(-Wthread-safety)                              \
             if (LIKELY(PL_locale_mutex_depth <= 0)) {                       \
                 DEBUG_Lv(PerlIO_printf(Perl_debug_log,                      \
                          "%s: %d: locking locale; depth=1\n",               \
@@ -7178,9 +7187,9 @@ the plain locale pragma without a parameter (S<C<use locale>>) is in effect.
 
 #  define LOCALE_UNLOCK_                                                    \
         STMT_START {                                                        \
-            DEBUG_Lv(PerlIO_printf(Perl_debug_log,                      \
-                        "%s: %d: Trying to unlock locale\n",               \
-                        __FILE__, __LINE__));                              \
+            DEBUG_Lv(PerlIO_printf(Perl_debug_log,                          \
+                        "%s: %d: Trying to unlock locale\n",                \
+                        __FILE__, __LINE__));                               \
             if (LIKELY(PL_locale_mutex_depth == 1)) {                       \
                 DEBUG_Lv(PerlIO_printf(Perl_debug_log,                      \
                          "%s: %d: unlocking locale; new depth=0\n",         \