+ return MUTABLE_AV(newSV_type(SVt_PVAV));
+ /* sv_upgrade does AvREAL_only():
+ AvALLOC(av) = 0;
+ AvARRAY(av) = NULL;
+ AvMAX(av) = AvFILLp(av) = -1; */
+}
+
+HV *
+Perl_newHV(pTHX)
+{
+ HV * const hv = MUTABLE_HV(newSV_type(SVt_PVHV));
+ assert(!SvOK(hv));
+
+ return hv;
+}
+
+void
+Perl_sv_insert(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len,
+ const char *const little, const STRLEN littlelen)
+{
+ PERL_ARGS_ASSERT_SV_INSERT;
+ sv_insert_flags(bigstr, offset, len, little, littlelen, SV_GMAGIC);
+}
+
+void
+Perl_save_freesv(pTHX_ SV *sv)
+{
+ dVAR;
+ save_freesv(sv);
+}
+
+void
+Perl_save_mortalizesv(pTHX_ SV *sv)
+{
+ dVAR;
+
+ PERL_ARGS_ASSERT_SAVE_MORTALIZESV;
+
+ save_mortalizesv(sv);
+}
+
+void
+Perl_save_freeop(pTHX_ OP *o)
+{
+ dVAR;
+ save_freeop(o);
+}
+
+void
+Perl_save_freepv(pTHX_ char *pv)
+{
+ dVAR;
+ save_freepv(pv);
+}
+
+void
+Perl_save_op(pTHX)
+{
+ dVAR;
+ save_op();
+}
+
+#ifdef PERL_DONT_CREATE_GVSV
+GV *
+Perl_gv_SVadd(pTHX_ GV *gv)
+{
+ return gv_SVadd(gv);
+}
+#endif
+
+GV *
+Perl_gv_AVadd(pTHX_ GV *gv)
+{
+ return gv_AVadd(gv);
+}
+
+GV *
+Perl_gv_HVadd(pTHX_ register GV *gv)
+{
+ return gv_HVadd(gv);
+}
+
+GV *
+Perl_gv_IOadd(pTHX_ register GV *gv)
+{
+ return gv_IOadd(gv);
+}
+
+IO *
+Perl_newIO(pTHX)
+{
+ return MUTABLE_IO(newSV_type(SVt_PVIO));
+}
+
+I32
+Perl_my_stat(pTHX)
+{
+ return my_stat_flags(SV_GMAGIC);
+}
+
+I32
+Perl_my_lstat(pTHX)
+{
+ return my_lstat_flags(SV_GMAGIC);
+}