mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

regen/reentr.pl: White-space, comment

Browse Source
This commit is contained in:
Karl Williamson 2024-02-18 15:59:18 -07:00
parent df145d8b76
commit ce559cb304
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
reentr.h
View File

@ -1697,6 +1697,6 @@ typedef struct {
#endif /* USE_REENTRANT_API */
#endif
#endif /* File hasn't already been #included */
/* ex: set ro ft=c: */

9
regen/reentr.pl
View File

@ -297,6 +297,8 @@ EOF
define)
EOF
}
# Process the prototypes
for my $p (@p) {
my ($r, $a) = ($p =~ /^(.)_(.+)/);
my $v = join(", ", map { $m{$_} } split '', $a);
@ -763,13 +765,14 @@ EOF
# 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 @@ typedef struct {
#endif /* USE_REENTRANT_API */
#endif
#endif /* File hasn't already been #included */
EOF
read_only_bottom_close_and_rename($h);