Skip to content

Commit 36e6814

Browse files
committed
Define a CvSIGNATURE flag
1 parent 4ccd151 commit 36e6814

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

cv.h

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -130,6 +130,7 @@ See L<perlguts/Autoloading with XSUBs>.
130130
#define CVf_NAMED 0x8000 /* Has a name HEK */
131131
#define CVf_LEXICAL 0x10000 /* Omit package from name */
132132
#define CVf_ANONCONST 0x20000 /* :const - create anonconst op */
133+
#define CVf_SIGNATURE 0x40000 /* CV uses a signature */
133134

134135
/* This symbol for optimised communication between toke.c and op.c: */
135136
#define CVf_BUILTIN_ATTRS (CVf_METHOD|CVf_LVALUE|CVf_ANONCONST)
@@ -219,6 +220,10 @@ See L<perlguts/Autoloading with XSUBs>.
219220
#define CvANONCONST_on(cv) (CvFLAGS(cv) |= CVf_ANONCONST)
220221
#define CvANONCONST_off(cv) (CvFLAGS(cv) &= ~CVf_ANONCONST)
221222

223+
#define CvSIGNATURE(cv) (CvFLAGS(cv) & CVf_SIGNATURE)
224+
#define CvSIGNATURE_on(cv) (CvFLAGS(cv) |= CVf_SIGNATURE)
225+
#define CvSIGNATURE_off(cv) (CvFLAGS(cv) &= ~CVf_SIGNATURE)
226+
222227
/* Flags for newXS_flags */
223228
#define XS_DYNAMIC_FILENAME 0x01 /* The filename isn't static */
224229

0 commit comments

Comments
 (0)