diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2002-03-27 15:52:28 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-28 00:58:36 +0000 |
| commit | d3cea301eb4cb4c87b2540dea791ab175d5a0a51 (patch) | |
| tree | 2b307dd59fbb7707814d2751b48c95c9043b01d9 /cv.h | |
| parent | ccac678058be47dbdd09dd870770b862c09e236a (diff) | |
| download | perl-d3cea301eb4cb4c87b2540dea791ab175d5a0a51.tar.gz | |
Re: perl 5.7.3 + XS lvalue subs
Message-Id: <200203280152.UAA415562@leggy.zk3.dec.com>
p4raw-id: //depot/perl@15565
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -85,6 +85,8 @@ Returns the stash of the CV. #define CVf_LOCKED 0x0080 /* CV locks itself or first arg on entry */ #define CVf_LVALUE 0x0100 /* CV return value can be used as lvalue */ #define CVf_CONST 0x0200 /* inlinable sub */ +/* This symbol for optimised communication between toke.c and op.c: */ +#define CVf_BUILTIN_ATTRS (CVf_METHOD|CVf_LOCKED|CVf_LVALUE) #define CvCLONE(cv) (CvFLAGS(cv) & CVf_CLONE) #define CvCLONE_on(cv) (CvFLAGS(cv) |= CVf_CLONE) |