Re: [perl #40917] Benchmark fails under -Mbignum

[perl5.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index ab3b2c4..b49f11a 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -390,6 +390,7 @@ elsif ($PLATFORM eq 'aix') {
                     Perl_sys_intern_clear
                     Perl_sys_intern_dup
                     Perl_sys_intern_init
+                    Perl_my_sprintf
                     PL_cryptseen
                     PL_opsave
                     PL_statusvalue_vms
@@ -585,6 +586,7 @@ unless ($define{'DEBUGGING'}) {
                    Perl_debstackptrs
                    Perl_pad_sv
                    Perl_sv_peek
+                   Perl_hv_assert
                    PL_block_type
                    PL_watchaddr
                    PL_watchok
@@ -714,6 +716,9 @@ unless ($define{'USE_ITHREADS'}) {
                    PL_sharedsv_space
                    PL_sharedsv_space_mutex
                    PL_dollarzero_mutex
+                   PL_hints_mutex
+                   PL_perlio_mutex
+                   PL_regdupe
                    Perl_dirp_dup
                    Perl_cx_dup
                    Perl_si_dup
@@ -746,6 +751,7 @@ unless ($define{'USE_ITHREADS'}) {
                    Perl_sharedsv_thrcnt_inc
                    Perl_sharedsv_unlock
                    Perl_stashpv_hvname_match
+                   Perl_regdupe
                    )];
 }
 
@@ -837,10 +843,28 @@ unless ($define{'PERL_TRACK_MEMPOOL'}) {
                     )];
 }
 
-unless ($define{'PERL_MAD'}) {
+if ($define{'PERL_MAD'}) {
+    skip_symbols [qw(
+                    PL_nextval
+                    PL_nexttype
+                    )];
+} else {
     skip_symbols [qw(
                    PL_madskills
                    PL_xmlfp
+                   PL_lasttoke
+                   PL_realtokenstart
+                   PL_faketokens
+                   PL_thismad
+                   PL_thistoken
+                   PL_thisopen
+                   PL_thisstuff
+                   PL_thisclose
+                   PL_thiswhite
+                   PL_nextwhite
+                   PL_skipwhite
+                   PL_endwhite
+                   PL_curforce
                    Perl_pad_peg
                    Perl_xmldump_indent
                    Perl_xmldump_vindent
@@ -959,6 +983,7 @@ my @layer_syms = qw(
                    PerlIO_sv_dup
                    Perl_PerlIO_clearerr
                    Perl_PerlIO_close
+                   Perl_PerlIO_context_layers
                    Perl_PerlIO_eof
                    Perl_PerlIO_error
                    Perl_PerlIO_fileno
@@ -1073,6 +1098,16 @@ if ($define{'USE_PERLIO'}) {
        emit_symbols \@layer_syms;
        emit_symbols [qw(perlsio_binmode)];
     }
+    if ($define{'USE_ITHREADS'}) {
+       emit_symbols [qw(
+                       PL_perlio_mutex
+                       )];
+    }
+    else {
+       skip_symbols [qw(
+                       PL_perlio_mutex
+                       )];
+    }
 } else {
        # -Uuseperlio
        # Skip the PerlIO layer symbols - although
@@ -1553,17 +1588,6 @@ sub output_symbol {
 
 1;
 __DATA__
-# extra globals not included above.
-Perl_cxinc
-perl_alloc
-perl_alloc_using
-perl_clone
-perl_clone_using
-perl_construct
-perl_destruct
-perl_free
-perl_parse
-perl_run
 # Oddities from PerlIO
 PerlIO_binmode
 PerlIO_getpos