diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-19 18:57:11 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-19 18:57:11 +0000 |
| commit | 570c6a0d6baa43ddc6723315bcb20bc76fb8e44f (patch) | |
| tree | 2874434069d9d3ce5537762c9879807e767695b7 | |
| parent | e6b2e7559f25acecc651c2f0d304b65728937d82 (diff) | |
| download | perl-570c6a0d6baa43ddc6723315bcb20bc76fb8e44f.tar.gz | |
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
| -rw-r--r-- | embedvar.h | 2 | ||||
| -rw-r--r-- | perlapi.h | 2 | ||||
| -rw-r--r-- | perlvars.h | 3 |
3 files changed, 6 insertions, 1 deletions
diff --git a/embedvar.h b/embedvar.h index 2e5fae0313..89c21e5ceb 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 @@ -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 09d6394674..606f7a5243 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)) |