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 /regen | |
| 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 'regen')
| -rwxr-xr-x | regen/opcode.pl | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/regen/opcode.pl b/regen/opcode.pl index 44541a742d..672f55c368 100755 --- a/regen/opcode.pl +++ b/regen/opcode.pl @@ -1061,8 +1061,15 @@ print $oc <<'END'; ; #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 = { END @@ -1071,8 +1078,11 @@ for (@ops) { } print $oc <<'END'; -}; +} #endif +#ifdef PERL_CHECK_INITED +; +#endif /* #ifdef PERL_CHECK_INITED */ #ifndef PERL_GLOBAL_STRUCT_INIT |