X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=makedef.pl;h=ab3b2c416d27f686fa3a89c94ebc6e1b6f802c73;hb=6fd99bb377a3671d990fd357b52cfe5b19de1e9c;hp=a0bcf7d354c326b96a6a5581569b688e5097973b;hpb=e271e56d5700d8b78a1a9d5ecb4471f81deffa6c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/makedef.pl b/makedef.pl
index a0bcf7d..ab3b2c4 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -288,6 +288,7 @@ if ($PLATFORM eq 'win32') {
 		     Perl_getenv_len
 		     Perl_my_pclose
 		     Perl_my_popen
+		     Perl_my_sprintf
 		     )];
 }
 else {
@@ -364,6 +365,7 @@ if ($PLATFORM eq 'wince') {
 		     Perl_getenv_len
 		     Perl_my_pclose
 		     Perl_my_popen
+		     Perl_my_sprintf
 		     )];
 }
 elsif ($PLATFORM eq 'aix') {
@@ -581,6 +583,7 @@ unless ($define{'DEBUGGING'}) {
 		    Perl_debprofdump
 		    Perl_debstack
 		    Perl_debstackptrs
+		    Perl_pad_sv
 		    Perl_sv_peek
 		    PL_block_type
 		    PL_watchaddr
@@ -748,6 +751,10 @@ unless ($define{'USE_ITHREADS'}) {
 
 unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
     skip_symbols [qw(
+		    PL_my_ctx_mutex
+		    PL_my_cxt_index
+		    PL_my_cxt_list
+		    PL_my_cxt_size
 		    Perl_croak_nocontext
 		    Perl_die_nocontext
 		    Perl_deb_nocontext
@@ -761,6 +768,7 @@ unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
 		    Perl_sv_setpvf_nocontext
 		    Perl_sv_catpvf_mg_nocontext
 		    Perl_sv_setpvf_mg_nocontext
+		    Perl_my_cxt_init
 		    )];
 }
 
@@ -823,6 +831,34 @@ unless ($define{'PERL_USES_PL_PIDSTATUS'}) {
 		    )];
 }
 
+unless ($define{'PERL_TRACK_MEMPOOL'}) {
+    skip_symbols [qw(
+                     PL_memory_debug_header
+                    )];
+}
+
+unless ($define{'PERL_MAD'}) {
+    skip_symbols [qw(
+		    PL_madskills
+		    PL_xmlfp
+		    Perl_pad_peg
+		    Perl_xmldump_indent
+		    Perl_xmldump_vindent
+		    Perl_xmldump_all
+		    Perl_xmldump_packsubs
+		    Perl_xmldump_sub
+		    Perl_xmldump_form
+		    Perl_xmldump_eval
+		    Perl_sv_catxmlsv
+		    Perl_sv_catxmlpvn
+		    Perl_sv_xmlpeek
+		    Perl_do_pmop_xmldump
+		    Perl_pmop_xmldump
+		    Perl_do_op_xmldump
+		    Perl_op_xmldump
+		    )];
+}
+
 unless ($define{'d_mmap'}) {
     skip_symbols [qw(
 		    PL_mmap_page_size