From 35f82371218a026d1f07258ae020fffabf397fdc Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sun, 8 Nov 2009 22:23:07 +0000 Subject: Add length and flags arguments to Perl_pad_check_dup(). Currently only pad_add_OUR is used. The length is cross-checked against strlen() on the pointer, but the intent is to re-work the entire pad API to be UTF-8 aware, from the current situation of char * pointers only. --- pad.h | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'pad.h') diff --git a/pad.h b/pad.h index 352a592f83..074d52ed21 100644 --- a/pad.h +++ b/pad.h @@ -112,6 +112,17 @@ typedef enum { padtidy_FORMAT /* or a format */ } padtidy_type; +#ifdef PERL_CORE + +/* flags for pad_add_name/pad_check_dup. SVf_UTF8 will also be valid in the + future. */ + +# define pad_add_OUR 0x01 /* our declaration. */ +# define pad_add_STATE 0x02 /* state declaration. */ +# define pad_add_FAKE 0x04 + +#endif + /* ASSERT_CURPAD_LEGAL and ASSERT_CURPAD_ACTIVE respectively determine * whether PL_comppad and PL_curpad are consistent and whether they have * active values */ -- cgit v1.2.1