diff options
| author | Karl Williamson <khw@cpan.org> | 2020-03-16 11:13:40 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-03-18 18:05:49 -0600 |
| commit | 02af4629d48da29a881a22a61bad14e161fcf8de (patch) | |
| tree | 92a80dd0ca66fe430deb7a591624e53174055c7d /regen/reentr.pl | |
| parent | 80c27f7759951db3715dacf7a5c2179434a6e679 (diff) | |
| download | perl-02af4629d48da29a881a22a61bad14e161fcf8de.tar.gz | |
reentr.[ch]: White-space only
This is a follow-on to 7c1815b7942f8c7e3651d98060ca7a0760e6483c,
that adds some more white space indentation fixes
Diffstat (limited to 'regen/reentr.pl')
| -rw-r--r-- | regen/reentr.pl | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/regen/reentr.pl b/regen/reentr.pl index d84e20adf2..2ca40ea501 100644 --- a/regen/reentr.pl +++ b/regen/reentr.pl @@ -624,8 +624,8 @@ EOF push @wrap, $ifdef; push @wrap, <<EOF; -# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) -# undef $func +# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) +# undef $func EOF # Write out what we have learned. @@ -689,37 +689,37 @@ EOF $memzero = 'REENTR_MEMZERO(&PL_reentrant_buffer->_' . $genfunc . '_data, sizeof(PL_reentrant_buffer->_' . $genfunc . '_data)),'; } push @wrap, <<EOF; -# if !defined($func) && ${FUNC}_R_PROTO == REENTRANT_PROTO_$p +# if !defined($func) && ${FUNC}_R_PROTO == REENTRANT_PROTO_$p EOF if ($r eq 'V' || $r eq 'B') { push @wrap, <<EOF; -# define $func($v) $call +# define $func($v) $call EOF } else { if ($func =~ /^get/) { my $rv = $v ? ", $v" : ""; if ($r eq 'I') { push @wrap, <<EOF; -# define $func($v) ($memzero(PL_reentrant_retint = $call)$test ? $true : ((PL_reentrant_retint == ERANGE) ? ($seent{$func} *) Perl_reentrant_retry("$func"$rv) : 0)) +# define $func($v) ($memzero(PL_reentrant_retint = $call)$test ? $true : ((PL_reentrant_retint == ERANGE) ? ($seent{$func} *) Perl_reentrant_retry("$func"$rv) : 0)) EOF } else { push @wrap, <<EOF; -# define $func($v) ($call$test ? $true : ((errno == ERANGE) ? ($seent{$func} *) Perl_reentrant_retry("$func"$rv) : 0)) +# define $func($v) ($call$test ? $true : ((errno == ERANGE) ? ($seent{$func} *) Perl_reentrant_retry("$func"$rv) : 0)) EOF } } else { push @wrap, <<EOF; -# define $func($v) ($call$test ? $true : 0) +# define $func($v) ($call$test ? $true : 0) EOF } } - push @wrap, <<EOF; # !defined(xxx) && XXX_R_PROTO == REENTRANT_PROTO_Y_TS -# endif + push @wrap, <<EOF; # !defined(xxx) && XXX_R_PROTO == REENTRANT_PROTO_Y_TS +# endif EOF } - push @wrap, <<EOF; # defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) -# endif + push @wrap, <<EOF; # defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) +# endif EOF push @wrap, $endif, "\n"; |