summaryrefslogtreecommitdiff
path: root/cv.h
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2015-01-18 16:28:27 -0800
committerFather Chrysostomos <sprout@cpan.org>2015-01-19 20:34:04 -0800
commit956dfca8c907877d52b97e2ad0d2d29d5d1d8442 (patch)
tree805cb982c4aee752ff980ecfde5319c9e0cda4e0 /cv.h
parentb488d167b095ca65d77037883935ed13df7ee79f (diff)
downloadperl-956dfca8c907877d52b97e2ad0d2d29d5d1d8442.tar.gz
cv.h: Add CVf_ANONCONST flag
Diffstat (limited to 'cv.h')
-rw-r--r--cv.h7
1 files changed, 6 insertions, 1 deletions
diff --git a/cv.h b/cv.h
index a3cbdb3373..89e471cf32 100644
--- a/cv.h
+++ b/cv.h
@@ -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 */