+ SSPUSHUV(SAVEt_DESTRUCTOR_X);
+}
+
+void
+Perl_save_hints(pTHX)
+{
+ dVAR;
+ COPHH *save_cophh = cophh_copy(CopHINTHASH_get(&PL_compiling));
+ if (PL_hints & HINT_LOCALIZE_HH) {
+ save_pushptri32ptr(GvHV(PL_hintgv), PL_hints, save_cophh, SAVEt_HINTS);
+ GvHV(PL_hintgv) = hv_copy_hints_hv(GvHV(PL_hintgv));
+ } else {
+ save_pushi32ptr(PL_hints, save_cophh, SAVEt_HINTS);
+ }
+}
+
+static void
+S_save_pushptri32ptr(pTHX_ void *const ptr1, const I32 i, void *const ptr2,
+ const int type)
+{
+ SSCHECK(4);
+ SSPUSHPTR(ptr1);
+ SSPUSHINT(i);
+ SSPUSHPTR(ptr2);
+ SSPUSHUV(type);