This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re-implement the SvOOK() hack to store the offset as a BER encoded
authorNicholas Clark <nick@ccl4.org>
Fri, 4 Jan 2008 23:12:01 +0000 (23:12 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 4 Jan 2008 23:12:01 +0000 (23:12 +0000)
commit7a4bba223aa750dd886fe6a2fddef224e59c717f
treea62d2cfd06d6f0b3dcac09e795b2cb7a34fdb104
parent7f605079929e971ed43dc83cf99bc51154965c26
Re-implement the SvOOK() hack to store the offset as a BER encoded
number in the part of the PVX that is being released. (It will always
fit, as chopping off 1 byte gives just enough space for recording a
delta of up to 127). This allows SvOOK() to co-exist with SvIOK_on(),
which means all the calls to SvOOK_off() [with the possibility of a
call to sv_backoff()] in SvIOK_on() can be removed. This ought to make
a lot of straight line code a little bit simpler.
OOK()d scalars can now be SVt_PV, as the IVX isn't needed.

p4raw-id: //depot/perl@32836
dump.c
embed.fnc
embed.h
global.sym
proto.h
sv.c
sv.h