Retract #13088: it seems that unless dump.c is extensively

reorganized as to what symbols it shows, when, and to whom,
we are stuck with having the dump.o symbols in the libperl
and thusly in the main Perl binary.

p4raw-id: //depot/perl@13100

diff --git a/embedvar.h b/embedvar.h
index 2e5fae0..89c21e5 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -1338,6 +1338,7 @@
 #define PL_malloc_mutex                (PL_Vars.Gmalloc_mutex)
 #define PL_op_mutex            (PL_Vars.Gop_mutex)
 #define PL_patleave            (PL_Vars.Gpatleave)
+#define PL_runops_dbg          (PL_Vars.Grunops_dbg)
 #define PL_runops_std          (PL_Vars.Grunops_std)
 #define PL_sharedsv_space      (PL_Vars.Gsharedsv_space)
 #define PL_sharedsv_space_mutex        (PL_Vars.Gsharedsv_space_mutex)
@@ -1353,6 +1354,7 @@
 #define PL_Gmalloc_mutex       PL_malloc_mutex
 #define PL_Gop_mutex           PL_op_mutex
 #define PL_Gpatleave           PL_patleave
+#define PL_Grunops_dbg         PL_runops_dbg
 #define PL_Grunops_std         PL_runops_std
 #define PL_Gsharedsv_space     PL_sharedsv_space
 #define PL_Gsharedsv_space_mutex       PL_sharedsv_space_mutex

diff --git a/perlapi.h b/perlapi.h
index e5b3654..f200326 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -937,6 +937,8 @@ END_EXTERN_C
 #define PL_op_mutex            (*Perl_Gop_mutex_ptr(NULL))
 #undef  PL_patleave
 #define PL_patleave            (*Perl_Gpatleave_ptr(NULL))
+#undef  PL_runops_dbg
+#define PL_runops_dbg          (*Perl_Grunops_dbg_ptr(NULL))
 #undef  PL_runops_std
 #define PL_runops_std          (*Perl_Grunops_std_ptr(NULL))
 #undef  PL_sharedsv_space

diff --git a/perlvars.h b/perlvars.h
index 09d6394..606f7a5 100644 (file)
--- a/perlvars.h
+++ b/perlvars.h
@@ -41,6 +41,7 @@ PERLVAR(Gsharedsv_space, PerlInterpreter*) /* The shared sv space */
 PERLVAR(Gsharedsv_space_mutex, perl_mutex) /* Mutex protecting the shared sv space */
 #endif
 
-/* Force inclusion of runops */
+/* Force inclusion of both runops options */
 PERLVARI(Grunops_std,  runops_proc_t,  MEMBER_TO_FPTR(Perl_runops_standard))
+PERLVARI(Grunops_dbg,  runops_proc_t,  MEMBER_TO_FPTR(Perl_runops_debug))