diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-12-13 19:55:08 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-12-13 19:55:08 +0000 |
| commit | 69d979076b2f9bb35f54152abb51ae3bcac7b013 (patch) | |
| tree | 223e684cb25002dba5e708ae7abe2688eb35bf7c /sv.h | |
| parent | 713cef20be507239588df9cdc5f99ce04b7e0b40 (diff) | |
| download | perl-69d979076b2f9bb35f54152abb51ae3bcac7b013.tar.gz | |
Restore the two comments describing BmRARE and BmPREVIOUS that I'd
inadvertently deleted. Explain the setting and testing of
SVpbm_VALID.
p4raw-id: //depot/perl@29551
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -357,7 +357,8 @@ perform the upgrade if necessary. See C<svtype>. #define SVpav_REAL 0x40000000 /* free old entries */ /* PVHV */ #define SVphv_LAZYDEL 0x40000000 /* entry in xhv_eiter must be deleted */ -/* Not just "PVBM" (PVGV) - basically anything that can be a regular scalar */ +/* This is only set true on a PVGV when it's playing "PVBM", but is tested for + on any regular scalar (anything <= PVLV) */ #define SVpbm_VALID 0x40000000 /* ??? */ #define SVrepl_EVAL 0x40000000 /* Replacement part of s///e */ @@ -1332,8 +1333,10 @@ the scalar's value cannot change unless written to. #define PERL_FBM_TABLE_OFFSET 5 /* Number of bytes between EOS and table */ #define PERL_FBM_FLAGS_OFFSET_FROM_TABLE -1 +/* how many characters in string before rare? */ #define PERL_FBM_PREVIOUS_L_OFFSET_FROM_TABLE -2 #define PERL_FBM_PREVIOUS_H_OFFSET_FROM_TABLE -3 +/* rarest character in string */ #define PERL_FBM_RARE_OFFSET_FROM_TABLE -4 /* SvPOKp not SvPOK in the assertion because the string can be tainted! eg |