First stab at using the pad to store the serialised hints data.

This approach is almost certainly not only wrong, but also doomed.
But it's needed to build a correct solution.

p4raw-id: //depot/perl@27768

1 files changed, 2 insertions, 0 deletions

diff --git a/scope.h b/scope.h
index 772eb41bd6..e5160e1b36 100644
--- a/scope.h
+++ b/scope.h
@@ -158,7 +158,9 @@ Closing bracket on a callback.  See C<ENTER> and L<perlcall>.
 	    GvHV(PL_hintgv) = Perl_hv_copy_hints_hv(aTHX_ GvHV(PL_hintgv)); \
 	}						\
 	if (PL_compiling.cop_hints) {			\
+	    HINTS_REFCNT_LOCK;				\
 	    PL_compiling.cop_hints->refcounted_he_refcnt++;	\
+	    HINTS_REFCNT_UNLOCK;			\
 	}						\
 	SSPUSHPTR(PL_compiling.cop_hints);		\
 	SSPUSHINT(PL_hints);				\