diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-16 18:41:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-16 18:41:19 +0000 |
| commit | c18e646aa79847e57bc522a44f29488705494669 (patch) | |
| tree | a0a8b0d3396c7a012bff345d0abb20db60b74238 /reentr.pl | |
| parent | 624b29b43ee9bc440524a09e1ee6bd5a04cfc94f (diff) | |
| download | perl-c18e646aa79847e57bc522a44f29488705494669.tar.gz | |
If not building threaded, never mind the threaded prototypes.
p4raw-id: //depot/perl@15264
Diffstat (limited to 'reentr.pl')
| -rw-r--r-- | reentr.pl | 11 |
1 files changed, 7 insertions, 4 deletions
@@ -172,7 +172,7 @@ while (<DATA>) { ?RCS: ?RCS: Generated by the reentr.pl from the Perl 5.8 distribution. ?RCS: -?MAKE:d_${f}_r ${f}_r_proto: Inlibc Protochk Hasproto i_systypes $prereqh +?MAKE:d_${f}_r ${f}_r_proto: Inlibc Protochk Hasproto i_systypes $prereqh usethreads ?MAKE: -pick add \$@ %< ?S:d_${f}_r: ?S: This variable conditionally defines the HAS_${F}_R symbol, @@ -201,8 +201,8 @@ eval \$inlibc case "\$d_${f}_r" in "\$define") hdrs="\$i_systypes sys/types.h define stdio.h \$i_${h} $h.h" - case "\$d_${f}_r_proto" in - '') d_${f}_r_proto=define + case "\$d_${f}_r_proto:\$usethreads" in + ":define") d_${f}_r_proto=define set d_${f}_r_proto ${f}_r \$hdrs eval \$hasproto ;; *) ;; @@ -241,7 +241,10 @@ EOF echo "Prototype: \$try" ;; esac ;; - *) echo "You have ${f}_r but no prototype, not using it." >&4 ;; + *) case "\$usethreads" in + define) echo "${f}_r has no prototype, not using it." >&4 ;; + esac + ;; esac ;; *) ${f}_r_proto=0 |