From 90d4a63860306135d3c25cb7b0ec5f86603e788d Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 17 Aug 2010 17:28:03 +0100 Subject: Fix building with PERL_GLOBAL_STRUCT defined. Presumably this compilation option was broken when Perl_clone_params_del and Perl_clone_params_new were added in f7abe70be985cb91. --- sv.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'sv.c') diff --git a/sv.c b/sv.c index 8ab73ac496..4918449222 100644 --- a/sv.c +++ b/sv.c @@ -12861,9 +12861,11 @@ S_unreferenced_to_tmp_stack(pTHX_ AV *const unreferenced) void Perl_clone_params_del(CLONE_PARAMS *param) { - PerlInterpreter *const was = PERL_GET_THX; + /* This seemingly funky ordering keeps the build with PERL_GLOBAL_STRUCT + happy: */ PerlInterpreter *const to = param->new_perl; dTHXa(to); + PerlInterpreter *const was = PERL_GET_THX; PERL_ARGS_ASSERT_CLONE_PARAMS_DEL; @@ -12885,6 +12887,7 @@ Perl_clone_params_del(CLONE_PARAMS *param) CLONE_PARAMS * Perl_clone_params_new(PerlInterpreter *const from, PerlInterpreter *const to) { + dVAR; /* Need to play this game, as newAV() can call safesysmalloc(), and that does a dTHX; to get the context from thread local storage. FIXME - under PERL_CORE Newx(), Safefree() and friends should expand to -- cgit v1.2.1