From: Jarkko Hietaniemi Date: Mon, 19 Nov 2001 18:57:11 +0000 (+0000) Subject: Retract #13088: it seems that unless dump.c is extensively X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=570c6a0d6baa43ddc6723315bcb20bc76fb8e44f;p=p5sagit%2Fp5-mst-13.2.git 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 --- 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 --- 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 --- 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))