This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update Math-Complex to CPAN version 1.57
[perl5.git]
/
makedef.pl
diff --git
a/makedef.pl
b/makedef.pl
index
65c2e28
..
9b76ef9
100644
(file)
--- a/
makedef.pl
+++ b/
makedef.pl
@@
-4,7
+4,6
@@
#
# Needed by WIN32 and OS/2 for creating perl.dll,
# and by AIX for creating libperl.a when -Dusershrplib is in effect,
#
# Needed by WIN32 and OS/2 for creating perl.dll,
# and by AIX for creating libperl.a when -Dusershrplib is in effect,
-# and by MacOS Classic.
#
# Reads from information stored in
#
#
# Reads from information stored in
#
@@
-13,7
+12,6
@@
# global.sym
# globvar.sym
# intrpvar.h
# global.sym
# globvar.sym
# intrpvar.h
-# macperl.sym (on MacOS)
# miniperl.map (on OS/2)
# perl5.def (on OS/2; this is the old version of the file being made)
# perlio.sym
# miniperl.map (on OS/2)
# perl5.def (on OS/2; this is the old version of the file being made)
# perlio.sym
@@
-59,7
+57,7
@@
while (@ARGV) {
}
}
}
}
-my @PLATFORM = qw(aix win32 wince os2
MacOS
netware);
+my @PLATFORM = qw(aix win32 wince os2 netware);
my %PLATFORM;
@PLATFORM{@PLATFORM} = ();
my %PLATFORM;
@PLATFORM{@PLATFORM} = ();
@@
-79,10
+77,8
@@
if ($PLATFORM eq 'win32' or $PLATFORM eq 'wince' or $PLATFORM eq "aix") {
$ENV{PERL5LIB} = join $Config{path_sep}, @INC;
my $cmd = "$^X $opts -V";
$ENV{PERL5LIB} = join $Config{path_sep}, @INC;
my $cmd = "$^X $opts -V";
- my $config = `$cmd`;
- if (! $config) {
- die "Couldn't run [$cmd]: $!";
- };
+ my $config = `$cmd`
+ or die "Couldn't run [$cmd]: $!";
my($options) = $config =~ /^ Compile-time options: (.*?)\n^ \S/ms;
$options =~ s/\s+/ /g;
print STDERR "Options: ($options)\n";
my($options) = $config =~ /^ Compile-time options: (.*?)\n^ \S/ms;
$options =~ s/\s+/ /g;
print STDERR "Options: ($options)\n";
@@
-106,7
+102,6
@@
my $config_h = "config.h";
my $intrpvar_h = "intrpvar.h";
my $perlvars_h = "perlvars.h";
my $global_sym = "global.sym";
my $intrpvar_h = "intrpvar.h";
my $perlvars_h = "perlvars.h";
my $global_sym = "global.sym";
-my $pp_sym = "pp.sym";
my $globvar_sym = "globvar.sym";
my $perlio_sym = "perlio.sym";
my $static_ext = "";
my $globvar_sym = "globvar.sym";
my $perlio_sym = "perlio.sym";
my $static_ext = "";
@@
-116,19
+111,12
@@
if ($PLATFORM eq 'aix') {
}
elsif ($PLATFORM =~ /^win(?:32|ce)$/ || $PLATFORM eq 'netware') {
$CCTYPE = "MSVC" unless defined $CCTYPE;
}
elsif ($PLATFORM =~ /^win(?:32|ce)$/ || $PLATFORM eq 'netware') {
$CCTYPE = "MSVC" unless defined $CCTYPE;
- foreach ($intrpvar_h, $perlvars_h, $global_sym,
- $pp_sym, $globvar_sym, $perlio_sym) {
+ foreach ($intrpvar_h, $perlvars_h, $global_sym, $globvar_sym, $perlio_sym) {
s!^!..\\!;
}
}
s!^!..\\!;
}
}
-elsif ($PLATFORM eq 'MacOS') {
- foreach ($intrpvar_h, $perlvars_h, $global_sym,
- $pp_sym, $globvar_sym, $perlio_sym) {
- s!^!::!;
- }
-}
-unless ($PLATFORM eq 'win32' || $PLATFORM eq 'wince' || $PLATFORM eq '
MacOS' || $PLATFORM eq '
netware') {
+unless ($PLATFORM eq 'win32' || $PLATFORM eq 'wince' || $PLATFORM eq 'netware') {
open(CFG,$config_sh) || die "Cannot open $config_sh: $!\n";
while (<CFG>) {
if (/^(?:ccflags|optimize)='(.+)'$/) {
open(CFG,$config_sh) || die "Cannot open $config_sh: $!\n";
while (<CFG>) {
if (/^(?:ccflags|optimize)='(.+)'$/) {
@@
-191,11
+179,11
@@
my $sym_ord = 0;
print STDERR "Defines: (" . join(' ', sort keys %define) . ")\n";
if ($PLATFORM =~ /^win(?:32|ce)$/) {
print STDERR "Defines: (" . join(' ', sort keys %define) . ")\n";
if ($PLATFORM =~ /^win(?:32|ce)$/) {
- (my $dll = ($define{PERL_DLL} || "perl51
1
")) =~ s/\.dll$//i;
+ (my $dll = ($define{PERL_DLL} || "perl51
5
")) =~ s/\.dll$//i;
print "LIBRARY $dll\n";
# The DESCRIPTION module definition file statement is not supported
# by VC7 onwards.
print "LIBRARY $dll\n";
# The DESCRIPTION module definition file statement is not supported
# by VC7 onwards.
- if ($CCTYPE
!~ /^MSVC7/ && $CCTYPE !~ /^MSVC8/ && $CCTYPE !~ /^MSVC9
/) {
+ if ($CCTYPE
=~ /^(?:MSVC60|GCC|BORLAND)$
/) {
print "DESCRIPTION 'Perl interpreter'\n";
}
print "EXPORTS\n";
print "DESCRIPTION 'Perl interpreter'\n";
}
print "EXPORTS\n";
@@
-247,7
+235,7
@@
elsif ($PLATFORM eq 'aix') {
}
elsif ($PLATFORM eq 'netware') {
if ($FILETYPE eq 'def') {
}
elsif ($PLATFORM eq 'netware') {
if ($FILETYPE eq 'def') {
- print "LIBRARY perl51
1
\n";
+ print "LIBRARY perl51
5
\n";
print "DESCRIPTION 'Perl interpreter for NetWare'\n";
print "EXPORTS\n";
}
print "DESCRIPTION 'Perl interpreter for NetWare'\n";
print "EXPORTS\n";
}
@@
-519,34
+507,6
@@
elsif ($PLATFORM eq 'os2') {
)])
if $define{'USE_5005THREADS'} or $define{'USE_ITHREADS'};
}
)])
if $define{'USE_5005THREADS'} or $define{'USE_ITHREADS'};
}
-elsif ($PLATFORM eq 'MacOS') {
- skip_symbols [qw(
- Perl_GetVars
- PL_cryptseen
- PL_cshlen
- PL_cshname
- PL_statusvalue_vms
- PL_sys_intern
- PL_opsave
- PL_timesbuf
- Perl_dump_fds
- Perl_my_bcopy
- Perl_my_bzero
- Perl_my_chsize
- Perl_my_htonl
- Perl_my_memcmp
- Perl_my_memset
- Perl_my_ntohl
- Perl_my_swap
- Perl_safexcalloc
- Perl_safexfree
- Perl_safexmalloc
- Perl_safexrealloc
- Perl_unlnk
- Perl_sys_intern_clear
- Perl_sys_intern_init
- )];
-}
elsif ($PLATFORM eq 'netware') {
skip_symbols [qw(
PL_statusvalue_vms
elsif ($PLATFORM eq 'netware') {
skip_symbols [qw(
PL_statusvalue_vms
@@
-760,8
+720,11
@@
unless ($define{'USE_ITHREADS'}) {
PL_sharedsv_space_mutex
PL_dollarzero_mutex
PL_hints_mutex
PL_sharedsv_space_mutex
PL_dollarzero_mutex
PL_hints_mutex
+ PL_my_ctx_mutex
PL_perlio_mutex
PL_regdupe
PL_perlio_mutex
PL_regdupe
+ Perl_clone_params_del
+ Perl_clone_params_new
Perl_parser_dup
Perl_dirp_dup
Perl_cx_dup
Perl_parser_dup
Perl_dirp_dup
Perl_cx_dup
@@
-775,6
+738,7
@@
unless ($define{'USE_ITHREADS'}) {
Perl_mro_meta_dup
Perl_re_dup_guts
Perl_sv_dup
Perl_mro_meta_dup
Perl_re_dup_guts
Perl_sv_dup
+ Perl_sv_dup_inc
Perl_rvpv_dup
Perl_hek_dup
Perl_sys_intern_dup
Perl_rvpv_dup
Perl_hek_dup
Perl_sys_intern_dup
@@
-795,7
+759,6
@@
unless ($define{'USE_ITHREADS'}) {
unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
skip_symbols [qw(
unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
skip_symbols [qw(
- PL_my_ctx_mutex
PL_my_cxt_index
PL_my_cxt_list
PL_my_cxt_size
PL_my_cxt_index
PL_my_cxt_list
PL_my_cxt_size
@@
-1001,7
+964,7
@@
if ($define{'PERL_GLOBAL_STRUCT'}) {
# functions from *.sym files
# functions from *.sym files
-my @syms = ($global_sym, $globvar_sym);
# $pp_sym is not part of the API
+my @syms = ($global_sym, $globvar_sym);
# Symbols that are the public face of the PerlIO layers implementation
# These are in _addition to_ the public face of the abstraction
# Symbols that are the public face of the PerlIO layers implementation
# These are in _addition to_ the public face of the abstraction
@@
-1220,8
+1183,8
@@
for my $syms (@syms) {
# variables
# variables
-if ($define{'MULTIPLICITY'}) {
- for my $f ($perlvars_h
, $intrpvar_h
) {
+if ($define{'MULTIPLICITY'}
&& $define{PERL_GLOBAL_STRUCT}
) {
+ for my $f ($perlvars_h) {
my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
emit_symbols $glob;
}
my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
emit_symbols $glob;
}
@@
-1236,7
+1199,7
@@
else {
my $glob = readvar($perlvars_h);
emit_symbols $glob;
}
my $glob = readvar($perlvars_h);
emit_symbols $glob;
}
- unless ($define{
'MULTIPLICITY'
}) {
+ unless ($define{
MULTIPLICITY
}) {
my $glob = readvar($intrpvar_h);
emit_symbols $glob;
}
my $glob = readvar($intrpvar_h);
emit_symbols $glob;
}
@@
-1286,6
+1249,7
@@
if ($PLATFORM =~ /^win(?:32|ce)$/) {
win32_open
win32_close
win32_eof
win32_open
win32_close
win32_eof
+ win32_isatty
win32_read
win32_write
win32_spawnvp
win32_read
win32_write
win32_spawnvp
@@
-1438,15
+1402,6
@@
elsif ($PLATFORM eq 'os2') {
@missing = grep { !exists $exportperlmalloc{$_} } @missing;
delete $export{$_} foreach @missing;
}
@missing = grep { !exists $exportperlmalloc{$_} } @missing;
delete $export{$_} foreach @missing;
}
-elsif ($PLATFORM eq 'MacOS') {
- open MACSYMS, 'macperl.sym' or die 'Cannot read macperl.sym';
-
- while (<MACSYMS>) {
- try_symbol($_);
- }
-
- close MACSYMS;
-}
elsif ($PLATFORM eq 'netware') {
foreach my $symbol (qw(
boot_DynaLoader
elsif ($PLATFORM eq 'netware') {
foreach my $symbol (qw(
boot_DynaLoader
@@
-1660,7
+1615,7
@@
sub output_symbol {
$ordinal{$exportperlmalloc{$symbol}} || ++$sym_ord
if $exportperlmalloc and exists $exportperlmalloc{$symbol};
}
$ordinal{$exportperlmalloc{$symbol}} || ++$sym_ord
if $exportperlmalloc and exists $exportperlmalloc{$symbol};
}
- elsif ($PLATFORM eq 'aix'
|| $PLATFORM eq 'MacOS'
) {
+ elsif ($PLATFORM eq 'aix') {
print "$symbol\n";
}
elsif ($PLATFORM eq 'netware') {
print "$symbol\n";
}
elsif ($PLATFORM eq 'netware') {