diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-07-14 12:34:09 +0300 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-07-14 07:03:08 +0000 |
| commit | 0b2d3faa276ad12850b3d1cb417e36a43029c4ec (patch) | |
| tree | 054591d0f5751809ad21631f949de053782d66c8 /sv.c | |
| parent | 4438fa18e7cba3001c09fd5b69d1478785845b88 (diff) | |
| download | perl-0b2d3faa276ad12850b3d1cb417e36a43029c4ec.tar.gz | |
-DPERL_GLOBAL_STRUCT_PRIVATE tweaks (done_sanity_check global? yech!)
Message-Id: <200607140634.k6E6Y9Ia471707@kosh.hut.fi>
p4raw-id: //depot/perl@28570
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -1032,7 +1032,7 @@ static const struct body_details bodies_by_type[] = { #define new_NOARENAZ(details) \ my_safecalloc((details)->body_size + (details)->offset) -#ifdef DEBUGGING +#if defined(DEBUGGING) && !defined(PERL_GLOBAL_STRUCT_PRIVATE) static bool done_sanity_check; #endif @@ -1048,7 +1048,9 @@ S_more_bodies (pTHX_ svtype sv_type) assert(bdp->arena_size); -#ifdef DEBUGGING +#if defined(DEBUGGING) && !defined(PERL_GLOBAL_STRUCT_PRIVATE) + /* PERL_GLOBAL_STRUCT_PRIVATE cannot coexist with global + * variables like done_sanity_check. */ if (!done_sanity_check) { unsigned int i = SVt_LAST; |