+#ifndef OS2
+bool
+Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp)
+{
+ PERL_ARGS_ASSERT_DO_AEXEC;
+
+ return do_aexec5(really, mark, sp, 0, 0);
+}
+#endif
+
+#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
+bool
+Perl_do_exec(pTHX_ const char *cmd)
+{
+ PERL_ARGS_ASSERT_DO_EXEC;
+
+ return do_exec3(cmd,0,0);
+}
+#endif
+
+/* Backwards compatibility. */
+int
+Perl_init_i18nl14n(pTHX_ int printwarn)
+{
+ return init_i18nl10n(printwarn);
+}
+
+PP(pp_padany)
+{
+ DIE(aTHX_ "NOT IMPL LINE %d",__LINE__);
+ return NORMAL;
+}
+
+PP(pp_mapstart)
+{
+ DIE(aTHX_ "panic: mapstart"); /* uses grepstart */
+ return NORMAL;
+}
+
+/* These ops all have the same body as pp_null. */
+PP(pp_scalar)
+{
+ dVAR;
+ return NORMAL;
+}
+
+PP(pp_regcmaybe)
+{
+ dVAR;
+ return NORMAL;
+}
+
+PP(pp_lineseq)
+{
+ dVAR;
+ return NORMAL;
+}
+
+PP(pp_scope)
+{
+ dVAR;
+ return NORMAL;
+}
+
+/* Ops that are calls to do_kv. */
+PP(pp_values)
+{
+ return do_kv();
+}
+
+PP(pp_keys)
+{
+ return do_kv();
+}
+
+/* Ops that are simply calls to other ops. */
+PP(pp_dump)
+{
+ return pp_goto();
+ /*NOTREACHED*/
+}
+
+PP(pp_dofile)
+{
+ return pp_require();
+}
+
+PP(pp_dbmclose)
+{
+ return pp_untie();
+}
+
+PP(pp_read)
+{
+ return pp_sysread();
+}
+
+PP(pp_recv)
+{
+ return pp_sysread();
+}
+
+PP(pp_seek)
+{
+ return pp_sysseek();
+}
+
+PP(pp_fcntl)
+{
+ return pp_ioctl();
+}
+
+PP(pp_gsockopt)
+{
+ return pp_ssockopt();
+}
+
+PP(pp_getsockname)
+{
+ return pp_getpeername();
+}
+
+PP(pp_lstat)
+{
+ return pp_stat();
+}
+
+PP(pp_fteowned)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftbinary)
+{
+ return pp_fttext();
+}
+
+PP(pp_localtime)
+{
+ return pp_gmtime();
+}
+
+PP(pp_shmget)
+{
+ return pp_semget();
+}
+
+PP(pp_shmctl)
+{
+ return pp_semctl();
+}
+
+PP(pp_shmread)
+{
+ return pp_shmwrite();
+}
+
+PP(pp_msgget)
+{
+ return pp_semget();
+}
+
+PP(pp_msgctl)
+{
+ return pp_semctl();
+}
+
+PP(pp_ghbyname)
+{
+ return pp_ghostent();
+}
+
+PP(pp_ghbyaddr)
+{
+ return pp_ghostent();
+}
+
+PP(pp_gnbyname)
+{
+ return pp_gnetent();
+}
+
+PP(pp_gnbyaddr)
+{
+ return pp_gnetent();
+}
+
+PP(pp_gpbyname)
+{
+ return pp_gprotoent();
+}
+
+PP(pp_gpbynumber)
+{
+ return pp_gprotoent();
+}
+
+PP(pp_gsbyname)
+{
+ return pp_gservent();
+}
+
+PP(pp_gsbyport)
+{
+ return pp_gservent();
+}
+
+PP(pp_gpwnam)
+{
+ return pp_gpwent();
+}
+
+PP(pp_gpwuid)
+{
+ return pp_gpwent();
+}
+
+PP(pp_ggrnam)
+{
+ return pp_ggrent();
+}
+
+PP(pp_ggrgid)
+{
+ return pp_ggrent();
+}
+
+PP(pp_ftsize)
+{
+ return pp_ftis();
+}
+
+PP(pp_ftmtime)
+{
+ return pp_ftis();
+}
+
+PP(pp_ftatime)
+{
+ return pp_ftis();
+}
+
+PP(pp_ftctime)
+{
+ return pp_ftis();
+}
+
+PP(pp_ftzero)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftsock)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftchr)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftblk)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftfile)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftdir)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftpipe)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftsuid)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftsgid)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_ftsvtx)
+{
+ return pp_ftrowned();
+}
+
+PP(pp_unlink)
+{
+ return pp_chown();
+}
+
+PP(pp_chmod)
+{
+ return pp_chown();
+}
+
+PP(pp_utime)
+{
+ return pp_chown();
+}
+
+PP(pp_kill)
+{
+ return pp_chown();
+}
+
+PP(pp_symlink)
+{
+ return pp_link();
+}
+
+PP(pp_ftrwrite)
+{
+ return pp_ftrread();
+}
+
+PP(pp_ftrexec)
+{
+ return pp_ftrread();
+}
+
+PP(pp_fteread)
+{
+ return pp_ftrread();
+}
+
+PP(pp_ftewrite)
+{
+ return pp_ftrread();
+}
+
+PP(pp_fteexec)
+{
+ return pp_ftrread();
+}
+
+PP(pp_msgsnd)
+{
+ return pp_shmwrite();
+}
+
+PP(pp_msgrcv)
+{
+ return pp_shmwrite();
+}
+
+PP(pp_syswrite)
+{
+ return pp_send();
+}
+
+PP(pp_semop)
+{
+ return pp_shmwrite();
+}
+
+PP(pp_dor)
+{
+ return pp_defined();
+}
+
+PP(pp_andassign)
+{
+ return pp_and();
+}
+
+PP(pp_orassign)
+{
+ return pp_or();
+}
+
+PP(pp_dorassign)
+{
+ return pp_defined();
+}
+
+PP(pp_lcfirst)
+{
+ return pp_ucfirst();
+}
+
+PP(pp_slt)
+{
+ return pp_sle();
+}
+
+PP(pp_sgt)
+{
+ return pp_sle();
+}
+
+PP(pp_sge)
+{
+ return pp_sle();
+}
+
+PP(pp_rindex)
+{
+ return pp_index();
+}
+
+PP(pp_hex)
+{
+ return pp_oct();
+}
+
+PP(pp_pop)
+{
+ return pp_shift();
+}
+
+PP(pp_cos)
+{
+ return pp_sin();
+}
+
+PP(pp_exp)
+{
+ return pp_sin();
+}
+
+PP(pp_log)
+{
+ return pp_sin();
+}
+
+PP(pp_sqrt)
+{
+ return pp_sin();
+}
+
+PP(pp_bit_xor)
+{
+ return pp_bit_or();
+}
+
+PP(pp_rv2hv)
+{
+ return Perl_pp_rv2av(aTHX);
+}
+
+U8 *
+Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
+{
+ PERL_ARGS_ASSERT_UVUNI_TO_UTF8;
+
+ return Perl_uvuni_to_utf8_flags(aTHX_ d, uv, 0);
+}
+
+bool
+Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **ep)
+{
+ PERL_ARGS_ASSERT_IS_UTF8_STRING_LOC;
+
+ return is_utf8_string_loclen(s, len, ep, 0);
+}
+
+/*
+=for apidoc sv_nolocking
+
+Dummy routine which "locks" an SV when there is no locking module present.
+Exists to avoid test for a NULL function pointer and because it could
+potentially warn under some level of strict-ness.
+
+"Superseded" by sv_nosharing().
+
+=cut
+*/
+
+void
+Perl_sv_nolocking(pTHX_ SV *sv)
+{
+ PERL_UNUSED_CONTEXT;
+ PERL_UNUSED_ARG(sv);
+}
+
+
+/*
+=for apidoc sv_nounlocking
+
+Dummy routine which "unlocks" an SV when there is no locking module present.
+Exists to avoid test for a NULL function pointer and because it could
+potentially warn under some level of strict-ness.
+
+"Superseded" by sv_nosharing().
+
+=cut
+*/
+
+void
+Perl_sv_nounlocking(pTHX_ SV *sv)
+{
+ PERL_UNUSED_CONTEXT;
+ PERL_UNUSED_ARG(sv);
+}
+
+void
+Perl_save_long(pTHX_ long int *longp)
+{
+ dVAR;
+
+ PERL_ARGS_ASSERT_SAVE_LONG;
+
+ SSCHECK(3);
+ SSPUSHLONG(*longp);
+ SSPUSHPTR(longp);
+ SSPUSHINT(SAVEt_LONG);
+}
+
+void
+Perl_save_iv(pTHX_ IV *ivp)
+{
+ dVAR;
+
+ PERL_ARGS_ASSERT_SAVE_IV;
+
+ SSCHECK(3);
+ SSPUSHIV(*ivp);
+ SSPUSHPTR(ivp);
+ SSPUSHINT(SAVEt_IV);
+}
+
+void
+Perl_save_nogv(pTHX_ GV *gv)
+{
+ dVAR;
+
+ PERL_ARGS_ASSERT_SAVE_NOGV;
+
+ SSCHECK(2);
+ SSPUSHPTR(gv);
+ SSPUSHINT(SAVEt_NSTAB);
+}
+
+void
+Perl_save_list(pTHX_ register SV **sarg, I32 maxsarg)
+{
+ dVAR;
+ register I32 i;
+
+ PERL_ARGS_ASSERT_SAVE_LIST;
+
+ for (i = 1; i <= maxsarg; i++) {
+ register SV * const sv = newSV(0);
+ sv_setsv(sv,sarg[i]);
+ SSCHECK(3);
+ SSPUSHPTR(sarg[i]); /* remember the pointer */
+ SSPUSHPTR(sv); /* remember the value */
+ SSPUSHINT(SAVEt_ITEM);
+ }
+}
+
+/*
+=for apidoc sv_usepvn_mg
+
+Like C<sv_usepvn>, but also handles 'set' magic.
+
+=cut
+*/
+
+void
+Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len)
+{
+ PERL_ARGS_ASSERT_SV_USEPVN_MG;
+
+ sv_usepvn_flags(sv,ptr,len, SV_SMAGIC);
+}
+
+/*
+=for apidoc sv_usepvn
+
+Tells an SV to use C<ptr> to find its string value. Implemented by
+calling C<sv_usepvn_flags> with C<flags> of 0, hence does not handle 'set'
+magic. See C<sv_usepvn_flags>.
+
+=cut
+*/
+
+void
+Perl_sv_usepvn(pTHX_ SV *sv, char *ptr, STRLEN len)
+{
+ PERL_ARGS_ASSERT_SV_USEPVN;
+
+ sv_usepvn_flags(sv,ptr,len, 0);
+}
+
+/*
+=for apidoc unpack_str
+
+The engine implementing unpack() Perl function. Note: parameters strbeg, new_s
+and ocnt are not used. This call should not be used, use unpackstring instead.
+
+=cut */
+
+I32
+Perl_unpack_str(pTHX_ const char *pat, const char *patend, const char *s,
+ const char *strbeg, const char *strend, char **new_s, I32 ocnt,
+ U32 flags)
+{
+ PERL_ARGS_ASSERT_UNPACK_STR;
+
+ PERL_UNUSED_ARG(strbeg);
+ PERL_UNUSED_ARG(new_s);
+ PERL_UNUSED_ARG(ocnt);
+
+ return unpackstring(pat, patend, s, strend, flags);
+}
+
+/*
+=for apidoc pack_cat
+
+The engine implementing pack() Perl function. Note: parameters next_in_list and
+flags are not used. This call should not be used; use packlist instead.
+
+=cut
+*/
+
+void
+Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, register SV **beglist, SV **endlist, SV ***next_in_list, U32 flags)
+{
+ PERL_ARGS_ASSERT_PACK_CAT;
+
+ PERL_UNUSED_ARG(next_in_list);
+ PERL_UNUSED_ARG(flags);
+
+ packlist(cat, pat, patend, beglist, endlist);
+}
+
+HE *
+Perl_hv_store_ent(pTHX_ HV *hv, SV *keysv, SV *val, U32 hash)
+{
+ return (HE *)hv_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISSTORE, val, hash);
+}
+
+bool
+Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash)
+{
+ PERL_ARGS_ASSERT_HV_EXISTS_ENT;
+
+ return hv_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISEXISTS, 0, hash)
+ ? TRUE : FALSE;
+}
+
+HE *
+Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, U32 hash)
+{
+ PERL_ARGS_ASSERT_HV_FETCH_ENT;
+
+ return (HE *)hv_common(hv, keysv, NULL, 0, 0,
+ (lval ? HV_FETCH_LVALUE : 0), NULL, hash);
+}
+
+SV *
+Perl_hv_delete_ent(pTHX_ HV *hv, SV *keysv, I32 flags, U32 hash)
+{
+ PERL_ARGS_ASSERT_HV_DELETE_ENT;
+
+ return MUTABLE_SV(hv_common(hv, keysv, NULL, 0, 0, flags | HV_DELETE, NULL,
+ hash));
+}
+
+SV**
+Perl_hv_store_flags(pTHX_ HV *hv, const char *key, I32 klen, SV *val, U32 hash,
+ int flags)
+{
+ return (SV**) hv_common(hv, NULL, key, klen, flags,
+ (HV_FETCH_ISSTORE|HV_FETCH_JUST_SV), val, hash);
+}
+
+SV**
+Perl_hv_store(pTHX_ HV *hv, const char *key, I32 klen_i32, SV *val, U32 hash)
+{
+ STRLEN klen;
+ int flags;
+
+ if (klen_i32 < 0) {
+ klen = -klen_i32;
+ flags = HVhek_UTF8;
+ } else {
+ klen = klen_i32;
+ flags = 0;
+ }
+ return (SV **) hv_common(hv, NULL, key, klen, flags,
+ (HV_FETCH_ISSTORE|HV_FETCH_JUST_SV), val, hash);
+}
+
+bool
+Perl_hv_exists(pTHX_ HV *hv, const char *key, I32 klen_i32)
+{
+ STRLEN klen;
+ int flags;
+
+ PERL_ARGS_ASSERT_HV_EXISTS;
+
+ if (klen_i32 < 0) {
+ klen = -klen_i32;
+ flags = HVhek_UTF8;
+ } else {
+ klen = klen_i32;
+ flags = 0;
+ }
+ return hv_common(hv, NULL, key, klen, flags, HV_FETCH_ISEXISTS, 0, 0)
+ ? TRUE : FALSE;
+}
+
+SV**
+Perl_hv_fetch(pTHX_ HV *hv, const char *key, I32 klen_i32, I32 lval)
+{
+ STRLEN klen;
+ int flags;
+
+ PERL_ARGS_ASSERT_HV_FETCH;
+
+ if (klen_i32 < 0) {
+ klen = -klen_i32;
+ flags = HVhek_UTF8;
+ } else {
+ klen = klen_i32;
+ flags = 0;
+ }
+ return (SV **) hv_common(hv, NULL, key, klen, flags,
+ lval ? (HV_FETCH_JUST_SV | HV_FETCH_LVALUE)
+ : HV_FETCH_JUST_SV, NULL, 0);
+}
+
+SV *
+Perl_hv_delete(pTHX_ HV *hv, const char *key, I32 klen_i32, I32 flags)
+{
+ STRLEN klen;
+ int k_flags;
+
+ PERL_ARGS_ASSERT_HV_DELETE;
+
+ if (klen_i32 < 0) {
+ klen = -klen_i32;
+ k_flags = HVhek_UTF8;
+ } else {
+ klen = klen_i32;
+ k_flags = 0;
+ }
+ return MUTABLE_SV(hv_common(hv, NULL, key, klen, k_flags, flags | HV_DELETE,
+ NULL, 0));
+}
+
+/* Functions after here were made mathoms post 5.10.0 but pre 5.8.9 */
+
+AV *
+Perl_newAV(pTHX)
+{
+ 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));
+}
+
+#endif /* NO_MATHOMS */
+