This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove MacOS (classic) code from makedef.pl.
authorNicholas Clark <nick@ccl4.org>
Sat, 8 Jan 2011 19:53:46 +0000 (19:53 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 8 Jan 2011 19:54:18 +0000 (19:54 +0000)
makedef.pl

index 61d3f08..a7df495 100644 (file)
@@ -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,
-# and by MacOS Classic.
 #
 # Reads from information stored in
 #
@@ -13,7 +12,6 @@
 #    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
@@ -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} = ();
 
@@ -119,14 +117,8 @@ elsif ($PLATFORM =~ /^win(?:32|ce)$/ || $PLATFORM eq 'netware') {
        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)='(.+)'$/) {
@@ -517,34 +509,6 @@ elsif ($PLATFORM eq 'os2') {
                    )])
       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
@@ -1440,15 +1404,6 @@ elsif ($PLATFORM eq 'os2') {
     @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
@@ -1662,7 +1617,7 @@ sub output_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') {