BER is all very well, but it turns out that it's better to store the

offset as either a byte (if <256), or a 0 byte with a STRLEN before.
"better" in that the reading can be inlined, and even then the object
code is smaller (function calls have space overhead). So goodbye
Perl_sv_read_offset() and hello SvOOK_offset().

p4raw-id: //depot/perl@32838

1 files changed, 0 insertions, 3 deletions

diff --git a/proto.h b/proto.h
index d276e3a0ce..5bbb5935a3 100644
--- a/proto.h
+++ b/proto.h
@@ -2355,9 +2355,6 @@ PERL_CALLCONV char*	Perl_sv_pvutf8n_force(pTHX_ SV* sv, STRLEN* lp)
 PERL_CALLCONV char*	Perl_sv_pvbyten_force(pTHX_ SV* sv, STRLEN* lp)
 			__attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV UV	Perl_sv_read_offset(pTHX_ const SV *const sv)
-			__attribute__nonnull__(pTHX_1);
-
 PERL_CALLCONV char*	Perl_sv_recode_to_utf8(pTHX_ SV* sv, SV *encoding)
 			__attribute__nonnull__(pTHX_1)
 			__attribute__nonnull__(pTHX_2);