diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-12-06 18:31:34 +0000 |
|---|---|---|
| committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-01-31 10:03:58 +0000 |
| commit | 36e6814d2cecccdf29fe8d9424f8f2b0a774abf4 (patch) | |
| tree | 7378b1ef9cba5baaa1154b02c98ea2571843dfc9 | |
| parent | 4ccd1515c853f1aacf08724b43b8c63a88e407c4 (diff) | |
| download | perl-36e6814d2cecccdf29fe8d9424f8f2b0a774abf4.tar.gz | |
Define a CvSIGNATURE flag
| -rw-r--r-- | cv.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -130,6 +130,7 @@ See L<perlguts/Autoloading with XSUBs>. #define CVf_NAMED 0x8000 /* Has a name HEK */ #define CVf_LEXICAL 0x10000 /* Omit package from name */ #define CVf_ANONCONST 0x20000 /* :const - create anonconst op */ +#define CVf_SIGNATURE 0x40000 /* CV uses a signature */ /* This symbol for optimised communication between toke.c and op.c: */ #define CVf_BUILTIN_ATTRS (CVf_METHOD|CVf_LVALUE|CVf_ANONCONST) @@ -219,6 +220,10 @@ See L<perlguts/Autoloading with XSUBs>. #define CvANONCONST_on(cv) (CvFLAGS(cv) |= CVf_ANONCONST) #define CvANONCONST_off(cv) (CvFLAGS(cv) &= ~CVf_ANONCONST) +#define CvSIGNATURE(cv) (CvFLAGS(cv) & CVf_SIGNATURE) +#define CvSIGNATURE_on(cv) (CvFLAGS(cv) |= CVf_SIGNATURE) +#define CvSIGNATURE_off(cv) (CvFLAGS(cv) &= ~CVf_SIGNATURE) + /* Flags for newXS_flags */ #define XS_DYNAMIC_FILENAME 0x01 /* The filename isn't static */ |