From 956dfca8c907877d52b97e2ad0d2d29d5d1d8442 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sun, 18 Jan 2015 16:28:27 -0800 Subject: [PATCH] cv.h: Add CVf_ANONCONST flag --- cv.h | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/cv.h b/cv.h index a3cbdb3..89e471c 100644 --- a/cv.h +++ b/cv.h @@ -134,9 +134,10 @@ See L. #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. #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 */ -- 1.8.3.1