/* mathoms.c
*
- * Copyright (C) 2005, by Larry Wall and others
+ * Copyright (C) 2005, 2006, by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
* hand to hand were of that sort."
*/
+#ifndef NO_MATHOMS
+
/*
* This file contains mathoms, various binary artifacts from previous
* versions of Perl. For binary or source compatibility reasons, though,
#define PERL_IN_MATHOMS_C
#include "perl.h"
+PERL_CALLCONV OP * Perl_ref(pTHX_ OP *o, I32 type);
+PERL_CALLCONV void Perl_sv_unref(pTHX_ SV *sv);
+PERL_CALLCONV void Perl_sv_taint(pTHX_ SV *sv);
+PERL_CALLCONV IV Perl_sv_2iv(pTHX_ register SV *sv);
+PERL_CALLCONV UV Perl_sv_2uv(pTHX_ register SV *sv);
+PERL_CALLCONV char * Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp);
+PERL_CALLCONV char * Perl_sv_2pv_nolen(pTHX_ register SV *sv);
+PERL_CALLCONV char * Perl_sv_2pvbyte_nolen(pTHX_ register SV *sv);
+PERL_CALLCONV char * Perl_sv_2pvutf8_nolen(pTHX_ register SV *sv);
+PERL_CALLCONV void Perl_sv_force_normal(pTHX_ register SV *sv);
+PERL_CALLCONV void Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr);
+PERL_CALLCONV void Perl_sv_catpvn(pTHX_ SV *dsv, const char* sstr, STRLEN slen);
+PERL_CALLCONV void Perl_sv_catpvn_mg(pTHX_ register SV *sv, register const char *ptr, register STRLEN len);
+PERL_CALLCONV void Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr);
+PERL_CALLCONV void Perl_sv_catsv_mg(pTHX_ SV *dsv, register SV *ssv);
+PERL_CALLCONV char * Perl_sv_pv(pTHX_ SV *sv);
+PERL_CALLCONV char * Perl_sv_pvn_force(pTHX_ SV *sv, STRLEN *lp);
+PERL_CALLCONV char * Perl_sv_pvbyte(pTHX_ SV *sv);
+PERL_CALLCONV char * Perl_sv_pvutf8(pTHX_ SV *sv);
+PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade(pTHX_ register SV *sv);
+PERL_CALLCONV NV Perl_huge(void);
+PERL_CALLCONV void Perl_gv_fullname3(pTHX_ SV *sv, const GV *gv, const char *prefix);
+PERL_CALLCONV void Perl_gv_efullname3(pTHX_ SV *sv, const GV *gv, const char *prefix);
+PERL_CALLCONV GV * Perl_gv_fetchmethod(pTHX_ HV *stash, const char *name);
+PERL_CALLCONV HE * Perl_hv_iternext(pTHX_ HV *hv);
+PERL_CALLCONV void Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how);
+PERL_CALLCONV bool Perl_do_open(pTHX_ GV *gv, register const char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp);
+PERL_CALLCONV bool Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp);
+PERL_CALLCONV bool Perl_do_exec(pTHX_ const char *cmd);
+PERL_CALLCONV U8 * Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv);
+PERL_CALLCONV bool Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **ep);
+PERL_CALLCONV void Perl_sv_nolocking(pTHX_ SV *sv);
+PERL_CALLCONV void Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len);
+PERL_CALLCONV void Perl_sv_usepvn(pTHX_ SV *sv, char *ptr, STRLEN len);
+PERL_CALLCONV int Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...);
+PERL_CALLCONV int Perl_printf_nocontext(const char *format, ...);
+
+
/* ref() is now a macro using Perl_doref;
* this version provided for binary compatibility only.
*/
void
Perl_sv_taint(pTHX_ SV *sv)
{
- sv_magic((sv), Nullsv, PERL_MAGIC_taint, Nullch, 0);
+ sv_magic((sv), NULL, PERL_MAGIC_taint, NULL, 0);
}
/* sv_2iv() is now a macro using Perl_sv_2iv_flags();
char *
Perl_sv_2pv_nolen(pTHX_ register SV *sv)
{
- return sv_2pv(sv, 0);
+ return sv_2pv(sv, NULL);
}
/*
char *
Perl_sv_2pvbyte_nolen(pTHX_ register SV *sv)
{
- return sv_2pvbyte(sv, 0);
+ return sv_2pvbyte(sv, NULL);
}
/*
char *
Perl_sv_2pvutf8_nolen(pTHX_ register SV *sv)
{
- return sv_2pvutf8(sv, 0);
+ return sv_2pvutf8(sv, NULL);
}
/*
if (SvPOK(sv))
return SvPVX(sv);
- return sv_2pv(sv, 0);
+ return sv_2pv(sv, NULL);
}
/* sv_pvn_force() is now a macro using Perl_sv_pvn_force_flags();
char *
Perl_sv_pvbyte(pTHX_ SV *sv)
{
- sv_utf8_downgrade(sv,0);
+ sv_utf8_downgrade(sv, FALSE);
return sv_pv(sv);
}
char *
Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *lp)
{
- sv_utf8_downgrade(sv,0);
+ sv_utf8_downgrade(sv, FALSE);
return sv_pvn(sv,lp);
}
return sv_utf8_upgrade_flags(sv, SV_GMAGIC);
}
-/*
-=for apidoc A|U8 *|uvchr_to_utf8|U8 *d|UV uv
-
-Adds the UTF-8 representation of the Native codepoint C<uv> to the end
-of the string C<d>; C<d> should be have at least C<UTF8_MAXBYTES+1> free
-bytes available. The return value is the pointer to the byte after the
-end of the new character. In other words,
-
- d = uvchr_to_utf8(d, uv);
-
-is the recommended wide native character-aware way of saying
-
- *(d++) = uv;
-
-=cut
-*/
-
-/* On ASCII machines this is normally a macro but we want a
- real function in case XS code wants it
-*/
-#undef Perl_uvchr_to_utf8
-U8 *
-Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv)
-{
- return Perl_uvuni_to_utf8_flags(aTHX_ d, NATIVE_TO_UNI(uv), 0);
-}
-
-
-/*
-=for apidoc A|UV|utf8n_to_uvchr|U8 *s|STRLEN curlen|STRLEN *retlen|U32
-flags
-
-Returns the native character value of the first character in the string
-C<s>
-which is assumed to be in UTF-8 encoding; C<retlen> will be set to the
-length, in bytes, of that character.
-
-Allows length and flags to be passed to low level routine.
-
-=cut
-*/
-/* On ASCII machines this is normally a macro but we want
- a real function in case XS code wants it
-*/
-#undef Perl_utf8n_to_uvchr
-UV
-Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen,
-U32 flags)
-{
- const UV uv = Perl_utf8n_to_uvuni(aTHX_ s, curlen, retlen, flags);
- return UNI_TO_NATIVE(uv);
-}
int
Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
{
NV
Perl_huge(void)
{
-# if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
+# if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
return HUGE_VALL;
-# endif
- return HUGE_VAL;
-}
-#endif
-
-#ifndef USE_SFIO
-int
-perlsio_binmode(FILE *fp, int iotype, int mode)
-{
- /*
- * This used to be contents of do_binmode in doio.c
- */
-#ifdef DOSISH
-# if defined(atarist) || defined(__MINT__)
- if (!fflush(fp)) {
- if (mode & O_BINARY)
- ((FILE *) fp)->_flag |= _IOBIN;
- else
- ((FILE *) fp)->_flag &= ~_IOBIN;
- return 1;
- }
- return 0;
-# else
- dTHX;
-#ifdef NETWARE
- if (PerlLIO_setmode(fp, mode) != -1) {
-#else
- if (PerlLIO_setmode(fileno(fp), mode) != -1) {
-#endif
-# if defined(WIN32) && defined(__BORLANDC__)
- /*
- * The translation mode of the stream is maintained independent
-of
- * the translation mode of the fd in the Borland RTL (heavy
- * digging through their runtime sources reveal). User has to
-set
- * the mode explicitly for the stream (though they don't
-document
- * this anywhere). GSAR 97-5-24
- */
- fseek(fp, 0L, 0);
- if (mode & O_BINARY)
- fp->flags |= _F_BIN;
- else
- fp->flags &= ~_F_BIN;
-# endif
- return 1;
- }
- else
- return 0;
-# endif
-#else
-# if defined(USEMYBINMODE)
- dTHX;
- if (my_binmode(fp, iotype, mode) != FALSE)
- return 1;
- else
- return 0;
# else
- PERL_UNUSED_ARG(fp);
- PERL_UNUSED_ARG(iotype);
- PERL_UNUSED_ARG(mode);
- return 1;
+ return HUGE_VAL;
# endif
-#endif
}
-#endif /* sfio */
+#endif
/* compatibility with versions <= 5.003. */
void
gv_efullname4(sv, gv, prefix, TRUE);
}
+/*
+=for apidoc gv_fetchmethod
+
+See L<gv_fetchmethod_autoload>.
+
+=cut
+*/
+
+GV *
+Perl_gv_fetchmethod(pTHX_ HV *stash, const char *name)
+{
+ return gv_fetchmethod_autoload(stash, name, TRUE);
+}
+
+HE *
+Perl_hv_iternext(pTHX_ HV *hv)
+{
+ return hv_iternext_flags(hv, 0);
+}
+
+void
+Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how)
+{
+ sv_magic((SV*)hv, (SV*)gv, how, NULL, 0);
+}
+
+#if 0 /* use the macro from hv.h instead */
+
+char*
+Perl_sharepvn(pTHX_ const char *sv, I32 len, U32 hash)
+{
+ return HEK_KEY(share_hek(sv, len, hash));
+}
+
+#endif
+
AV *
Perl_av_fake(pTHX_ register I32 size, register SV **strp)
{
register SV** ary;
- register AV * const av = (AV*)NEWSV(9,0);
+ register AV * const av = (AV*)newSV(0);
sv_upgrade((SV *)av, SVt_PVAV);
Newx(ary,size+1,SV*);
AvALLOC(av) = ary;
Copy(strp,ary,size,SV*);
AvREIFY_only(av);
- SvPV_set(av, (char*)ary);
+ AvARRAY(av) = ary;
AvFILLp(av) = size - 1;
AvMAX(av) = size - 1;
while (size--) {
return PerlIO_binmode(aTHX_ fp, iotype, mode, name);
}
+#ifndef OS2
+bool
+Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp)
+{
+ return do_aexec5(really, mark, sp, 0, 0);
+}
+#endif
+
#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
bool
Perl_do_exec(pTHX_ const char *cmd)
}
#endif
+#ifdef HAS_PIPE
+void
+Perl_do_pipe(pTHX_ SV *sv, GV *rgv, GV *wgv)
+{
+ dVAR;
+ register IO *rstio;
+ register IO *wstio;
+ int fd[2];
+
+ if (!rgv)
+ goto badexit;
+ if (!wgv)
+ goto badexit;
+
+ rstio = GvIOn(rgv);
+ wstio = GvIOn(wgv);
+
+ if (IoIFP(rstio))
+ do_close(rgv,FALSE);
+ if (IoIFP(wstio))
+ do_close(wgv,FALSE);
+
+ if (PerlProc_pipe(fd) < 0)
+ goto badexit;
+ IoIFP(rstio) = PerlIO_fdopen(fd[0], "r"PIPE_OPEN_MODE);
+ IoOFP(wstio) = PerlIO_fdopen(fd[1], "w"PIPE_OPEN_MODE);
+ IoOFP(rstio) = IoIFP(rstio);
+ IoIFP(wstio) = IoOFP(wstio);
+ IoTYPE(rstio) = IoTYPE_RDONLY;
+ IoTYPE(wstio) = IoTYPE_WRONLY;
+ if (!IoIFP(rstio) || !IoOFP(wstio)) {
+ if (IoIFP(rstio)) PerlIO_close(IoIFP(rstio));
+ else PerlLIO_close(fd[0]);
+ if (IoOFP(wstio)) PerlIO_close(IoOFP(wstio));
+ else PerlLIO_close(fd[1]);
+ goto badexit;
+ }
+
+ sv_setsv(sv,&PL_sv_yes);
+ return;
+
+badexit:
+ sv_setsv(sv,&PL_sv_undef);
+ return;
+}
+#endif
+
+/* Backwards compatibility. */
+int
+Perl_init_i18nl14n(pTHX_ int printwarn)
+{
+ return init_i18nl10n(printwarn);
+}
+
+/* XXX kept for BINCOMPAT only */
+void
+Perl_save_hints(pTHX)
+{
+ Perl_croak(aTHX_ "internal error: obsolete function save_hints() called");
+}
+
+#if 0
+OP *
+Perl_ck_retarget(pTHX_ OP *o)
+{
+ Perl_croak(aTHX_ "NOT IMPL LINE %d",__LINE__);
+ /* STUB */
+ return o;
+}
+#endif
+
+OP *
+Perl_oopsCV(pTHX_ OP *o)
+{
+ Perl_croak(aTHX_ "NOT IMPL LINE %d",__LINE__);
+ /* STUB */
+ PERL_UNUSED_ARG(o);
+ NORETURN_FUNCTION_END;
+}
+
+PP(pp_padany)
+{
+ DIE(aTHX_ "NOT IMPL LINE %d",__LINE__);
+}
+
+PP(pp_threadsv)
+{
+ DIE(aTHX_ "tried to access per-thread data in non-threaded perl");
+}
+
+PP(pp_mapstart)
+{
+ DIE(aTHX_ "panic: mapstart"); /* uses grepstart */
+}
+
+/* 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();
+}
+
+U8 *
+Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
+{
+ 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)
+{
+ 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;
+ SSCHECK(3);
+ SSPUSHLONG(*longp);
+ SSPUSHPTR(longp);
+ SSPUSHINT(SAVEt_LONG);
+}
+
+void
+Perl_save_I16(pTHX_ I16 *intp)
+{
+ dVAR;
+ SSCHECK(3);
+ SSPUSHINT(*intp);
+ SSPUSHPTR(intp);
+ SSPUSHINT(SAVEt_I16);
+}
+
+void
+Perl_save_iv(pTHX_ IV *ivp)
+{
+ dVAR;
+ SSCHECK(3);
+ SSPUSHIV(*ivp);
+ SSPUSHPTR(ivp);
+ SSPUSHINT(SAVEt_IV);
+}
+
+void
+Perl_save_nogv(pTHX_ GV *gv)
+{
+ dVAR;
+ SSCHECK(2);
+ SSPUSHPTR(gv);
+ SSPUSHINT(SAVEt_NSTAB);
+}
+
+void
+Perl_save_list(pTHX_ register SV **sarg, I32 maxsarg)
+{
+ dVAR;
+ register I32 i;
+
+ 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)
+{
+ 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)
+{
+ sv_usepvn_flags(sv,ptr,len, 0);
+}
+
+void
+Perl_cv_ckproto(pTHX_ const CV *cv, const GV *gv, const char *p)
+{
+ cv_ckproto_len(cv, gv, p, p ? strlen(p) : 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_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_UNUSED_ARG(next_in_list);
+ PERL_UNUSED_ARG(flags);
+
+ packlist(cat, pat, patend, beglist, endlist);
+}
+#endif /* NO_MATHOMS */
+
/*
* Local variables:
* c-indentation-style: bsd