diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-04-13 09:00:51 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-04-13 09:00:51 +0100 |
| commit | e95ab0c0d2aa1b35158a807caf76aa2d7f7e1b54 (patch) | |
| tree | 19f24e9a41022e967f696622ce835e2855fba616 /cv.h | |
| parent | d32faaf3b401b4c02872bfb2f57e48e11b3a1d28 (diff) | |
| download | perl-e95ab0c0d2aa1b35158a807caf76aa2d7f7e1b54.tar.gz | |
Remove CVf_LOCKED and CvLOCKED*(), now that nothing sets that flag bit.
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -69,7 +69,6 @@ Returns the stash of the CV. #define CvOUTSIDE_SEQ(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_outside_seq #define CVf_METHOD 0x0001 /* CV is explicitly marked as a method */ -#define CVf_LOCKED 0x0002 /* CV locks itself or first arg on entry */ #define CVf_LVALUE 0x0004 /* CV return value can be used as lvalue */ #define CVf_WEAKOUTSIDE 0x0010 /* CvOUTSIDE isn't ref counted */ @@ -84,7 +83,7 @@ Returns the stash of the CV. #define CVf_ISXSUB 0x0800 /* CV is an XSUB, not pure perl. */ /* This symbol for optimised communication between toke.c and op.c: */ -#define CVf_BUILTIN_ATTRS (CVf_METHOD|CVf_LOCKED|CVf_LVALUE) +#define CVf_BUILTIN_ATTRS (CVf_METHOD|CVf_LVALUE) #define CvCLONE(cv) (CvFLAGS(cv) & CVf_CLONE) #define CvCLONE_on(cv) (CvFLAGS(cv) |= CVf_CLONE) @@ -110,10 +109,6 @@ Returns the stash of the CV. #define CvMETHOD_on(cv) (CvFLAGS(cv) |= CVf_METHOD) #define CvMETHOD_off(cv) (CvFLAGS(cv) &= ~CVf_METHOD) -#define CvLOCKED(cv) (CvFLAGS(cv) & CVf_LOCKED) -#define CvLOCKED_on(cv) (CvFLAGS(cv) |= CVf_LOCKED) -#define CvLOCKED_off(cv) (CvFLAGS(cv) &= ~CVf_LOCKED) - #define CvLVALUE(cv) (CvFLAGS(cv) & CVf_LVALUE) #define CvLVALUE_on(cv) (CvFLAGS(cv) |= CVf_LVALUE) #define CvLVALUE_off(cv) (CvFLAGS(cv) &= ~CVf_LVALUE) |