diff options
author | David Mitchell <davem@iabyn.com> | 2018-12-26 10:45:22 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2019-02-19 13:28:11 +0000 |
commit | 1565c085c35f9f8b0c729dff0ac353dcb8d79df6 (patch) | |
tree | 8a43c3a91cfb4d51f5455d00614a9896494e6112 /win32 | |
parent | 0bb8cb436da6e18869ede1dfa3d55abc438bff5f (diff) | |
download | perl-1565c085c35f9f8b0c729dff0ac353dcb8d79df6.tar.gz |
add dVAR's for PERL_GLOBAL_STRUCT_PRIVATE builds
The perl build option -DPERL_GLOBAL_STRUCT_PRIVATE had bit-rotted
due to lack of smoking. The main fix is to just add 'dVAR;' to any
functions which have a pTHX arg. It's a NOOP on normal builds.
Diffstat (limited to 'win32')
-rw-r--r-- | win32/win32.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c index 8b2808c6d8..8104d864c2 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -1684,6 +1684,8 @@ win32_longpath(char *path) static void out_of_memory(void) { + dVAR; + if (PL_curinterp) croak_no_mem(); exit(1); @@ -4711,6 +4713,7 @@ win32_csighandler(int sig) void Perl_sys_intern_init(pTHX) { + dVAR; int i; w32_perlshell_tokens = NULL; @@ -4760,6 +4763,8 @@ Perl_sys_intern_init(pTHX) void Perl_sys_intern_clear(pTHX) { + dVAR; + Safefree(w32_perlshell_tokens); Safefree(w32_perlshell_vec); /* NOTE: w32_fdpid is freed by sv_clean_all() */ |