diff options
| author | Stefan Seifert <nine@detonation.org> | 2019-10-30 16:23:01 +0100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2019-12-12 11:35:20 +1100 |
| commit | e6c7056ba6f1dca6d04e6d36515a0ffc3a5ec02a (patch) | |
| tree | 76f720186b490fb6d156db4048883af91258e4af /opcode.h | |
| parent | 91e49152f27fa00e0cb6d477928f8098a9367c05 (diff) | |
| download | perl-e6c7056ba6f1dca6d04e6d36515a0ffc3a5ec02a.tar.gz | |
Move PL_check to the interp vars to fix threading issues
Fixes issue #14816
Diffstat (limited to 'opcode.h')
| -rw-r--r-- | opcode.h | 14 |
1 files changed, 2 insertions, 12 deletions
@@ -1374,15 +1374,8 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ ; #endif -#ifdef PERL_GLOBAL_STRUCT_INIT -# define PERL_CHECK_INITED +#ifdef PERL_IN_PERL_C 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 */ @@ -1782,11 +1775,8 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ 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 |