This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix Win32 linker errors following change 24271
authorSteve Hay <SteveHay@planit.com>
Fri, 22 Apr 2005 08:59:58 +0000 (08:59 +0000)
committerSteve Hay <SteveHay@planit.com>
Fri, 22 Apr 2005 08:59:58 +0000 (08:59 +0000)
This clears up "unresolved external" errors for the following symbols:

PL_watch_pvx
Perl_Gappctx_ptr
Perl_Gmmap_page_size_ptr
Perl_Gsig_defaulting_ptr
Perl_Gsig_handlers_initted_ptr
Perl_Gsig_ignoring_ptr
Perl_Gsig_sv_ptr
Perl_Gtimesbase_ptr
Perl_Gwatch_pvx_ptr

p4raw-id: //depot/perl@24278

makedef.pl

index 8b4dd41..d7e052a 100644 (file)
@@ -565,6 +565,7 @@ unless ($define{'DEBUGGING'}) {
                    PL_block_type
                    PL_watchaddr
                    PL_watchok
+                   PL_watch_pvx
                    )];
 }
 
@@ -639,6 +640,24 @@ if ($define{'PERL_MALLOC_WRAP'}) {
                    )];
 }
 
+unless ($define{'HAS_MMAP'}) {
+    skip_symbols [qw(
+                   PL_mmap_page_size
+                   )];
+}
+
+unless ($define{'HAS_TIMES'} || $define{'PERL_NEED_TIMESBASE'}) {
+    skip_symbols [qw(
+                   PL_timesbase
+                   )];
+}
+
+unless ($define{'PERL_NEED_APPCTX'}) {
+    skip_symbols [qw(
+                   PL_appctx
+                   )];
+}
+
 unless ($define{'USE_ITHREADS'}) {
     skip_symbols [qw(
                    PL_thr_key
@@ -733,6 +752,12 @@ unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
                    )];
 }
 
+if ($define{'PERL_IMPLICIT_CONTEXT'}) {
+    skip_symbols [qw(
+                   PL_sig_sv
+                   )];
+}
+
 unless ($define{'PERL_IMPLICIT_SYS'}) {
     skip_symbols [qw(
                    perl_alloc_using
@@ -744,6 +769,26 @@ unless ($define{'FAKE_THREADS'}) {
     skip_symbols [qw(PL_curthr)];
 }
 
+unless ($define{'FAKE_DEFAULT_SIGNAL_HANDLERS'}) {
+    skip_symbols [qw(
+                   PL_sig_defaulting
+                   )];
+}
+
+unless ($define{'FAKE_PERSISTENT_SIGNAL_HANDLERS'}) {
+    skip_symbols [qw(
+                   PL_sig_ignoring
+                   )];
+}
+
+unless ($define{'FAKE_DEFAULT_SIGNAL_HANDLERS'} ||
+        $define{'FAKE_PERSISTENT_SIGNAL_HANDLERS'})
+{
+    skip_symbols [qw(
+                   PL_sig_handlers_initted
+                   )];
+}
+
 unless ($define{'PL_OP_SLAB_ALLOC'}) {
     skip_symbols [qw(
                      PL_OpPtr