From 7008caa915ad99e650acf2aea40612b5e48b7ba2 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 28 May 2022 15:30:19 -0600 Subject: Remove deprecated functions Most of these have been deprecated for a long time; and we've never bothered to follow through in removing them. This commit does that. --- mg.c | 36 ------------------------------------ 1 file changed, 36 deletions(-) (limited to 'mg.c') diff --git a/mg.c b/mg.c index 831e25117f..9895669d9f 100644 --- a/mg.c +++ b/mg.c @@ -297,42 +297,6 @@ Perl_mg_set(pTHX_ SV *sv) return 0; } -/* -=for apidoc mg_length - -Reports on the SV's length in bytes, calling length magic if available, -but does not set the UTF8 flag on C. It will fall back to 'get' -magic if there is no 'length' magic, but with no indication as to -whether it called 'get' magic. It assumes C is a C or -higher. Use C instead. - -=cut -*/ - -U32 -Perl_mg_length(pTHX_ SV *sv) -{ - MAGIC* mg; - STRLEN len; - - PERL_ARGS_ASSERT_MG_LENGTH; - - for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) { - const MGVTBL * const vtbl = mg->mg_virtual; - if (vtbl && vtbl->svt_len) { - const I32 mgs_ix = SSNEW(sizeof(MGS)); - save_magic(mgs_ix, sv); - /* omit MGf_GSKIP -- not changed here */ - len = vtbl->svt_len(aTHX_ sv, mg); - restore_magic(INT2PTR(void*, (IV)mgs_ix)); - return len; - } - } - - (void)SvPV_const(sv, len); - return len; -} - I32 Perl_mg_size(pTHX_ SV *sv) { -- cgit v1.2.1