diff options
| author | Tony Cook <tony@develop-help.com> | 2019-12-16 08:56:52 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2019-12-16 08:57:58 +1100 |
| commit | 0850138d5ff43e9778637c50e5dfc4c06ada52c6 (patch) | |
| tree | 5dd1a7239053f4fbf96af5501f5e38cfbe331a75 /opcode.h | |
| parent | 3da00ce5e5ff2ce6335c410c0e8b586a4c7c8d4f (diff) | |
| download | perl-0850138d5ff43e9778637c50e5dfc4c06ada52c6.tar.gz | |
Revert "Move PL_check to the interp vars to fix threading issues"
and the associated commits, at least until a way to make
wrap_op_checker() work is available.
Diffstat (limited to 'opcode.h')
| -rw-r--r-- | opcode.h | 14 |
1 files changed, 12 insertions, 2 deletions
@@ -1374,8 +1374,15 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ ; #endif -#ifdef PERL_IN_PERL_C +#ifdef PERL_GLOBAL_STRUCT_INIT +# define PERL_CHECK_INITED static const Perl_check_t Gcheck[] +#elif !defined(PERL_GLOBAL_STRUCT) +# define PERL_CHECK_INITED +EXT Perl_check_t PL_check[] /* or perlvars.h */ +#endif +#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT) +# define PERL_CHECK_INITED = { Perl_ck_null, /* null */ Perl_ck_null, /* stub */ @@ -1775,8 +1782,11 @@ static const Perl_check_t Gcheck[] Perl_ck_null, /* lvavref */ Perl_ck_null, /* anonconst */ Perl_ck_isa, /* isa */ -}; +} #endif +#ifdef PERL_CHECK_INITED +; +#endif /* #ifdef PERL_CHECK_INITED */ #ifndef PERL_GLOBAL_STRUCT_INIT |