* versions of Perl. For binary or source compatibility reasons, though,
* we cannot completely remove them from the core code.
*
+ * REMEMBER to update makedef.pl when adding a function to mathoms.c whose
+ * name doesn't begin with "Perl_".
+ *
* SMP - Oct. 24, 2005
*
* The compilation of this file can be suppressed; see INSTALL
NULL, 0));
}
-/* Functions after here were made mathoms post 5.10.0 but pre 5.8.9 */
-
AV *
Perl_newAV(pTHX)
{
return Perl_sv_mortalcopy_flags(aTHX_ oldstr, SV_GMAGIC);
}
+void
+Perl_sv_copypv(pTHX_ SV *const dsv, SV *const ssv)
+{
+ PERL_ARGS_ASSERT_SV_COPYPV;
+
+ sv_copypv_flags(dsv, ssv, 0);
+}
+
UV /* Made into a function, so can be deprecated */
NATIVE_TO_NEED(const UV enc, const UV ch)
{
return isUTF8_CHAR(s, s + UTF8SKIP(s));
}
+/*
+=for apidoc is_utf8_char_buf
+
+This is identical to the macro L</isUTF8_CHAR>.
+
+=cut */
+
+STRLEN
+Perl_is_utf8_char_buf(const U8 *buf, const U8* buf_end)
+{
+
+ PERL_ARGS_ASSERT_IS_UTF8_CHAR_BUF;
+
+ return isUTF8_CHAR(buf, buf_end);
+}
+
/* DEPRECATED!
* Like L</utf8_to_uvuni_buf>(), but should only be called when it is known that
* there are no malformations in the input UTF-8 string C<s>. Surrogates,
return NATIVE_TO_UNI(valid_utf8_to_uvchr(s, retlen));
}
+void
+Perl_save_re_context(pTHX)
+{
+ PERL_UNUSED_CONTEXT;
+}
+
+/*
+=for apidoc Am|HV *|pad_compname_type|PADOFFSET po
+
+Looks up the type of the lexical variable at position I<po> in the
+currently-compiling pad. If the variable is typed, the stash of the
+class to which it is typed is returned. If not, C<NULL> is returned.
+
+=cut
+*/
+
+HV *
+Perl_pad_compname_type(pTHX_ const PADOFFSET po)
+{
+ return PAD_COMPNAME_TYPE(po);
+}
+
+
END_EXTERN_C
#endif /* NO_MATHOMS */