From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 4 Mar 2001 18:41:00 +0000 (+0000)
Subject: makedef.pl updates suggested by Chris Nandor; double-checking
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86593e8d8ee0ffb23da66937d9707ed328109754;p=p5sagit%2Fp5-mst-13.2.git

makedef.pl updates suggested by Chris Nandor; double-checking
the changes in AIX, OS/2 Win32 would be nice.

p4raw-id: //depot/perl@9021
---

diff --git a/makedef.pl b/makedef.pl
index dbea24a..02305c2 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -1,8 +1,9 @@
 #
 # Create the export list for perl.
 #
-# 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 global.sym, pp.sym, perlvars.h, intrpvar.h, thrdvar.h, config.h
 # On OS/2 reads miniperl.map as well
@@ -464,7 +465,9 @@ unless ($define{'USE_ITHREADS'}) {
 		    Perl_re_dup
 		    Perl_sv_dup
 		    Perl_sys_intern_dup
+		    Perl_ptr_table_clear
 		    Perl_ptr_table_fetch
+		    Perl_ptr_table_free
 		    Perl_ptr_table_new
 		    Perl_ptr_table_clear
 		    Perl_ptr_table_free
@@ -582,6 +585,36 @@ if ($define{'USE_PERLIO'}) {
 			 PerlIO_write
 			 )];
     }
+    else {
+	# Skip the PerlIO New Generation symbols.
+	skip_symbols [qw(
+			 PerlIOBase_clearerr
+			 PerlIOBase_close
+			 PerlIOBase_eof
+			 PerlIOBase_error
+			 PerlIOBase_fileno
+			 PerlIOBuf_bufsiz
+			 PerlIOBuf_fdopen
+			 PerlIOBuf_fill
+			 PerlIOBuf_flush
+			 PerlIOBuf_get_cnt
+			 PerlIOBuf_get_ptr
+			 PerlIOBuf_open
+			 PerlIOBuf_pushed
+			 PerlIOBuf_read
+			 PerlIOBuf_reopen
+			 PerlIOBuf_seek
+			 PerlIOBuf_set_ptrcnt
+			 PerlIOBuf_setlinebuf
+			 PerlIOBuf_tell
+			 PerlIOBuf_unread
+			 PerlIOBuf_write
+			 PerlIO_define_layer
+			 PerlIO_pending
+			 PerlIO_push
+			 PerlIO_unread
+			)];
+    }
 }
 
 for my $syms (@syms) {