Change 13100 by jhi@alpha on 2001/11/19 18:57:11
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.
Affected files ...
.... //depot/perl/embedvar.h#132 edit
.... //depot/perl/perlapi.h#54 edit
.... //depot/perl/perlvars.h#40 edit
Differences ...
==== //depot/perl/embedvar.h#132 (text+w) ====
Index: perl/embedvar.h
--- perl/embedvar.h.~1~ Mon Nov 19 12:00:05 2001
+++ perl/embedvar.h Mon Nov 19 12:00:05 2001
@@ -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
==== //depot/perl/perlapi.h#54 (text+w) ====
Index: perl/perlapi.h
--- perl/perlapi.h.~1~ Mon Nov 19 12:00:05 2001
+++ perl/perlapi.h Mon Nov 19 12:00:05 2001
@@ -937,6 +937,8 @@
#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
==== //depot/perl/perlvars.h#40 (text) ====
Index: perl/perlvars.h
--- perl/perlvars.h.~1~ Mon Nov 19 12:00:05 2001
+++ perl/perlvars.h Mon Nov 19 12:00:05 2001
@@ -41,6 +41,7 @@
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))
End of Patch.
