From: Nicholas Clark Date: Wed, 13 Dec 2006 19:55:08 +0000 (+0000) Subject: Restore the two comments describing BmRARE and BmPREVIOUS that I'd X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69d979076b2f9bb35f54152abb51ae3bcac7b013;p=p5sagit%2Fp5-mst-13.2.git 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 --- diff --git a/sv.h b/sv.h index 78e8d1b..8b1f385 100644 --- a/sv.h +++ b/sv.h @@ -357,7 +357,8 @@ perform the upgrade if necessary. See C. #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