diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-04 23:12:01 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-04 23:12:01 +0000 |
| commit | 7a4bba223aa750dd886fe6a2fddef224e59c717f (patch) | |
| tree | a62d2cfd06d6f0b3dcac09e795b2cb7a34fdb104 /global.sym | |
| parent | 7f605079929e971ed43dc83cf99bc51154965c26 (diff) | |
| download | perl-7a4bba223aa750dd886fe6a2fddef224e59c717f.tar.gz | |
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
Diffstat (limited to 'global.sym')
| -rw-r--r-- | global.sym | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/global.sym b/global.sym index 021d86b1ef..e5f9d66c56 100644 --- a/global.sym +++ b/global.sym @@ -539,6 +539,7 @@ Perl_sv_pos_b2u Perl_sv_pvn_force Perl_sv_pvutf8n_force Perl_sv_pvbyten_force +Perl_sv_read_offset Perl_sv_recode_to_utf8 Perl_sv_cat_decode Perl_sv_reftype |