X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=makedef.pl;h=e864f68229634008e5265ac432dd870aa613d3b7;hb=912ec6395ccd8f957980c6c263fd9cff9e9bb2fa;hp=ffe69b3028253546bd6416ca247add9e117d34de;hpb=18f68570297a02601dc2452e05e11ca1485ace3f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/makedef.pl b/makedef.pl
index ffe69b3..e864f68 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -116,7 +116,7 @@ if ($PLATFORM =~ /^win(?:32|ce)$/) {
 	output_symbol("perl_get_host_info");
 	output_symbol("perl_alloc_override");
     }
-    if ($define{USE_ITHREADS}) {
+    if ($define{USE_ITHREADS} and $define{PERL_IMPLICIT_SYS}) {
 	output_symbol("perl_clone_host");
     }
 }
@@ -738,16 +738,19 @@ my @layer_syms = qw(
 			 PerlIOBase_error
 			 PerlIOBase_fileno
 			 PerlIOBase_pushed
+			 PerlIOBase_popped
 			 PerlIOBase_read
 			 PerlIOBase_setlinebuf
 			 PerlIOBase_unread
 			 PerlIOBuf_bufsiz
 			 PerlIOBuf_fill
 			 PerlIOBuf_flush
+			 PerlIOBuf_get_base
 			 PerlIOBuf_get_cnt
 			 PerlIOBuf_get_ptr
 			 PerlIOBuf_open
 			 PerlIOBuf_pushed
+			 PerlIOBuf_popped
 			 PerlIOBuf_read
 			 PerlIOBuf_seek
 			 PerlIOBuf_set_ptrcnt
@@ -876,6 +879,9 @@ if ($define{'USE_PERLIO'}) {
 			 Perl_PerlIO_tell
 			 Perl_PerlIO_unread
 			 Perl_PerlIO_write
+                         PL_def_layerlist
+                         PL_known_layers
+                         PL_perlio
 			 )];
     }
     else {
@@ -1049,6 +1055,7 @@ if ($PLATFORM =~ /^win(?:32|ce)$/) {
 			    win32_link
 			    win32_unlink
 			    win32_utime
+			    win32_gettimeofday
 			    win32_uname
 			    win32_wait
 			    win32_waitpid
@@ -1268,6 +1275,8 @@ foreach my $symbol (qw(
 			Perl_sv_catsv
 			Perl_sv_catpvn
 			Perl_sv_2pv
+			nw_freeenviron
+			Remove_Thread_Ctx
 			   ))
     {
 	try_symbol($symbol);
@@ -1343,7 +1352,7 @@ perl_destruct
 perl_free
 perl_parse
 perl_run
-# Oddities from PerlIO 
+# Oddities from PerlIO
 PerlIO_binmode
 PerlIO_getpos
 PerlIO_init