diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2015-01-18 16:28:27 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2015-01-19 20:34:04 -0800 |
| commit | 956dfca8c907877d52b97e2ad0d2d29d5d1d8442 (patch) | |
| tree | 805cb982c4aee752ff980ecfde5319c9e0cda4e0 /cv.h | |
| parent | b488d167b095ca65d77037883935ed13df7ee79f (diff) | |
| download | perl-956dfca8c907877d52b97e2ad0d2d29d5d1d8442.tar.gz | |
cv.h: Add CVf_ANONCONST flag
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -134,9 +134,10 @@ See L<perlguts/Autoloading with XSUBs>. #define CVf_HASEVAL 0x4000 /* contains string eval */ #define CVf_NAMED 0x8000 /* Has a name HEK */ #define CVf_LEXICAL 0x10000 /* Omit package from name */ +#define CVf_ANONCONST 0x20000 /* :const - create anonconst op */ /* This symbol for optimised communication between toke.c and op.c: */ -#define CVf_BUILTIN_ATTRS (CVf_METHOD|CVf_LVALUE) +#define CVf_BUILTIN_ATTRS (CVf_METHOD|CVf_LVALUE|CVf_ANONCONST) #define CvCLONE(cv) (CvFLAGS(cv) & CVf_CLONE) #define CvCLONE_on(cv) (CvFLAGS(cv) |= CVf_CLONE) @@ -219,6 +220,10 @@ See L<perlguts/Autoloading with XSUBs>. #define CvLEXICAL_on(cv) (CvFLAGS(cv) |= CVf_LEXICAL) #define CvLEXICAL_off(cv) (CvFLAGS(cv) &= ~CVf_LEXICAL) +#define CvANONCONST(cv) (CvFLAGS(cv) & CVf_ANONCONST) +#define CvANONCONST_on(cv) (CvFLAGS(cv) |= CVf_ANONCONST) +#define CvANONCONST_off(cv) (CvFLAGS(cv) &= ~CVf_ANONCONST) + /* Flags for newXS_flags */ #define XS_DYNAMIC_FILENAME 0x01 /* The filename isn't static */ |