}
bool
-Perl_is_utf8_string_loc(const U8 *s, STRLEN len, const U8 **ep)
+Perl_is_utf8_string_loc(const U8 *s, const STRLEN len, const U8 **ep)
{
PERL_ARGS_ASSERT_IS_UTF8_STRING_LOC;
}
void
-Perl_save_iv(pTHX_ IV *ivp)
-{
- PERL_ARGS_ASSERT_SAVE_IV;
-
- SSCHECK(3);
- SSPUSHIV(*ivp);
- SSPUSHPTR(ivp);
- SSPUSHUV(SAVEt_IV);
-}
-
-void
Perl_save_nogv(pTHX_ GV *gv)
{
PERL_ARGS_ASSERT_SAVE_NOGV;
=cut */
-I32
+SSize_t
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_HV_EXISTS_ENT;
- return hv_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISEXISTS, 0, hash)
- ? TRUE : FALSE;
+ return cBOOL(hv_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISEXISTS, 0, hash));
}
HE *
klen = klen_i32;
flags = 0;
}
- return hv_common(hv, NULL, key, klen, flags, HV_FETCH_ISEXISTS, 0, 0)
- ? TRUE : FALSE;
+ return cBOOL(hv_common(hv, NULL, key, klen, flags, HV_FETCH_ISEXISTS, 0, 0));
}
SV**
{
PERL_ARGS_ASSERT_TO_UTF8_FOLD;
- return _to_utf8_fold_flags(p, ustrp, lenp, FOLD_FLAGS_FULL);
+ return toFOLD_utf8(p, ustrp, lenp);
}
UV
{
PERL_ARGS_ASSERT_TO_UTF8_LOWER;
- return _to_utf8_lower_flags(p, ustrp, lenp, FALSE);
+ return toLOWER_utf8(p, ustrp, lenp);
}
UV
{
PERL_ARGS_ASSERT_TO_UTF8_TITLE;
- return _to_utf8_title_flags(p, ustrp, lenp, FALSE);
+ return toTITLE_utf8(p, ustrp, lenp);
}
UV
{
PERL_ARGS_ASSERT_TO_UTF8_UPPER;
- return _to_utf8_upper_flags(p, ustrp, lenp, FALSE);
+ return toUPPER_utf8(p, ustrp, lenp);
}
SV *
{
PERL_ARGS_ASSERT_SV_COPYPV;
- sv_copypv_flags(dsv, ssv, 0);
+ sv_copypv_flags(dsv, ssv, SV_GMAGIC);
}
UV /* Made into a function, so can be deprecated */
UV
Perl_valid_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen)
{
+ PERL_UNUSED_CONTEXT;
PERL_ARGS_ASSERT_VALID_UTF8_TO_UVUNI;
return NATIVE_TO_UNI(valid_utf8_to_uvchr(s, retlen));
UV
Perl_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen)
{
+ PERL_UNUSED_CONTEXT;
PERL_ARGS_ASSERT_UTF8_TO_UVUNI;
return NATIVE_TO_UNI(valid_utf8_to_uvchr(s, retlen));