regen/reentr.pl: White-space, comment

Perl · Feb 28, 2024 · ce559cb · ce559cb
1 parent df145d8
commit ce559cb
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/reentr.h b/reentr.h
@@ -1697,6 +1697,6 @@ typedef struct {
 
 #endif /* USE_REENTRANT_API */
 
-#endif
+#endif /* File hasn't already been #included */
 
 /* ex: set ro ft=c: */
diff --git a/regen/reentr.pl b/regen/reentr.pl
@@ -297,6 +297,8 @@ sub open_print_header {
         define)
 EOF
     }
+
+    # Process the prototypes
     for my $p (@p) {
         my ($r, $a) = ($p =~ /^(.)_(.+)/);
         my $v = join(", ", map { $m{$_} } split '', $a);
@@ -763,13 +765,14 @@ sub define {
 #      endif
 EOF
         }
-                    push @wrap, <<EOF;
+
+        push @wrap, <<EOF;
 #      if defined($func)
 #        define PERL_REENTR_USING_${FUNC}_R
 #      endif
 EOF
 
-            push @wrap, <<EOF;  #  defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+        push @wrap, <<EOF;  #  defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
 #    endif
 EOF
 
@@ -801,7 +804,7 @@ sub define {
 
 #endif /* USE_REENTRANT_API */
 
-#endif
+#endif /* File hasn't already been #included */
 EOF
 
 read_only_bottom_close_and_rename($h);