diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-21 16:12:37 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-21 16:12:37 +0000 |
| commit | f73ef291429b5bbca51e74d1a29b172b5d7304ea (patch) | |
| tree | 250a34ff9c484b8b3636483cfe919a34d0532f4d /cv.h | |
| parent | 26a32e18faa6fb3ffd3cdf7009426aef1a8abd16 (diff) | |
| download | perl-f73ef291429b5bbca51e74d1a29b172b5d7304ea.tar.gz | |
Goodbye PERL_XSUB_OLDSTYLE.
p4raw-id: //depot/perl@27260
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 9 |
1 files changed, 1 insertions, 8 deletions
@@ -131,8 +131,7 @@ Returns the stash of the CV. #define CVf_NODEBUG 0x0200 /* no DB::sub indirection for this CV (esp. useful for special XSUBs) */ #define CVf_CONST 0x0400 /* inlinable sub */ -#define CVf_OLDSTYLE 0x0800 -#define CVf_ISXSUB 0x1000 /* CV is an XSUB, not pure perl. */ +#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|CVf_ASSERTION) @@ -149,12 +148,6 @@ Returns the stash of the CV. #define CvANON_on(cv) (CvFLAGS(cv) |= CVf_ANON) #define CvANON_off(cv) (CvFLAGS(cv) &= ~CVf_ANON) -#ifdef PERL_XSUB_OLDSTYLE -#define CvOLDSTYLE(cv) (CvFLAGS(cv) & CVf_OLDSTYLE) -#define CvOLDSTYLE_on(cv) (CvFLAGS(cv) |= CVf_OLDSTYLE) -#define CvOLDSTYLE_off(cv) (CvFLAGS(cv) &= ~CVf_OLDSTYLE) -#endif - #define CvUNIQUE(cv) (CvFLAGS(cv) & CVf_UNIQUE) #define CvUNIQUE_on(cv) (CvFLAGS(cv) |= CVf_UNIQUE) #define CvUNIQUE_off(cv) (CvFLAGS(cv) &= ~CVf_UNIQUE) |