diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-10-24 16:37:49 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-10-24 16:37:49 +0000 |
| commit | 56b5603ec7962bbd71d2b0950444e5617e6c8329 (patch) | |
| tree | e3d11bd5b38f305520e9d7b33c85f9c7a9a54be3 | |
| parent | d7a2c63ca1dd960ced99dbacbd31f848d2ffa77f (diff) | |
| download | perl-56b5603ec7962bbd71d2b0950444e5617e6c8329.tar.gz | |
Run 'make regen' for #34567 and #34568.
p4raw-id: //depot/perl@34569
| -rw-r--r-- | embed.h | 10 | ||||
| -rw-r--r-- | embedvar.h | 2 | ||||
| -rw-r--r-- | perlapi.h | 2 | ||||
| -rw-r--r-- | proto.h | 9 |
4 files changed, 23 insertions, 0 deletions
@@ -1596,6 +1596,11 @@ #define vdie_common S_vdie_common #define write_no_mem S_write_no_mem #endif +#if defined(PERL_MEM_LOG) && defined(PERL_MEM_LOG_STDERR) +#ifdef PERL_CORE +#define mem_log_common S_mem_log_common +#endif +#endif #endif #if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE @@ -3917,6 +3922,11 @@ #define vdie_common(a,b,c,d) S_vdie_common(aTHX_ a,b,c,d) #define write_no_mem() S_write_no_mem(aTHX) #endif +#if defined(PERL_MEM_LOG) && defined(PERL_MEM_LOG_STDERR) +#ifdef PERL_CORE +#define mem_log_common S_mem_log_common +#endif +#endif #endif #if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE diff --git a/embedvar.h b/embedvar.h index 71199c9f57..ef8c378839 100644 --- a/embedvar.h +++ b/embedvar.h @@ -300,6 +300,7 @@ #define PL_sv_no (vTHX->Isv_no) #define PL_sv_objcount (vTHX->Isv_objcount) #define PL_sv_root (vTHX->Isv_root) +#define PL_sv_serial (vTHX->Isv_serial) #define PL_sv_undef (vTHX->Isv_undef) #define PL_sv_yes (vTHX->Isv_yes) #define PL_sys_intern (vTHX->Isys_intern) @@ -611,6 +612,7 @@ #define PL_Isv_no PL_sv_no #define PL_Isv_objcount PL_sv_objcount #define PL_Isv_root PL_sv_root +#define PL_Isv_serial PL_sv_serial #define PL_Isv_undef PL_sv_undef #define PL_Isv_yes PL_sv_yes #define PL_Isys_intern PL_sys_intern @@ -636,6 +636,8 @@ END_EXTERN_C #define PL_sv_objcount (*Perl_Isv_objcount_ptr(aTHX)) #undef PL_sv_root #define PL_sv_root (*Perl_Isv_root_ptr(aTHX)) +#undef PL_sv_serial +#define PL_sv_serial (*Perl_Isv_serial_ptr(aTHX)) #undef PL_sv_undef #define PL_sv_undef (*Perl_Isv_undef_ptr(aTHX)) #undef PL_sv_yes @@ -5887,6 +5887,15 @@ STATIC bool S_vdie_common(pTHX_ const char *message, STRLEN msglen, I32 utf8, bo STATIC char * S_write_no_mem(pTHX) __attribute__noreturn__; +#if defined(PERL_MEM_LOG) && defined(PERL_MEM_LOG_STDERR) +STATIC void S_mem_log_common(enum mem_log_type mlt, const UV n, const UV typesize, const char *typename, const SV *sv, Malloc_t oldalloc, Malloc_t newalloc, const char *filename, const int linenumber, const char *funcname) + __attribute__nonnull__(4) + __attribute__nonnull__(8) + __attribute__nonnull__(10); +#define PERL_ARGS_ASSERT_MEM_LOG_COMMON \ + assert(typename); assert(filename); assert(funcname) + +#endif #endif #if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT) |