Move the implmentation of SAVEHINTS() into a new Perl_save_hints() in

scope.c. "Inlined" macro functions in scope.h are actually space
inefficient.

p4raw-id: //depot/perl@34965

1 files changed, 1 insertions, 16 deletions

diff --git a/scope.h b/scope.h
index bc80b97caa..70b7165a86 100644
--- a/scope.h
+++ b/scope.h
@@ -157,22 +157,7 @@ Closing bracket on a callback.  See C<ENTER> and L<perlcall>.
 
 #define SAVEOP()	save_op()
 
-#define SAVEHINTS() \
-    STMT_START {					\
-	if (PL_compiling.cop_hints_hash) {		\
-	    HINTS_REFCNT_LOCK;				\
-	    PL_compiling.cop_hints_hash->refcounted_he_refcnt++;	\
-	    HINTS_REFCNT_UNLOCK;			\
-	}						\
-	SSCHECK(4);					\
-	if (PL_hints & HINT_LOCALIZE_HH) {		\
-	    SSPUSHPTR(GvHV(PL_hintgv));			\
-	    GvHV(PL_hintgv) = Perl_hv_copy_hints_hv(aTHX_ GvHV(PL_hintgv)); \
-	}						\
-	SSPUSHINT(PL_hints);				\
-	SSPUSHPTR(PL_compiling.cop_hints_hash);		\
-	SSPUSHINT(SAVEt_HINTS);				\
-    } STMT_END
+#define SAVEHINTS()	save_hints()
 
 #define SAVECOMPPAD() save_pushptr(MUTABLE_SV(PL_comppad), SAVEt_COMPPAD)