summaryrefslogtreecommitdiff
path: root/cop.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-04-25 15:41:48 +0100
committerNicholas Clark <nick@ccl4.org>2010-04-26 21:09:54 +0100
commit67549bd2d9da9e6710cdab4542e708ef4d4346b6 (patch)
treedd10c6ceb21eec955d442f1f38693673a62fe647 /cop.h
parentbbda9cad3990b2899f9b14eed43d91fea90bd738 (diff)
downloadperl-67549bd2d9da9e6710cdab4542e708ef4d4346b6.tar.gz
For Perl_magic_methcall() add G_UNDEF_FILL to fill the stack with &PL_sv_undef.
This replaces the previous special case of using a negative argument count to signify this, allowing the argument count to become unsigned. Rename it from n to argc.
Diffstat (limited to 'cop.h')
-rw-r--r--cop.h3
1 files changed, 3 insertions, 0 deletions
diff --git a/cop.h b/cop.h
index 6c51d73285..f36d5ff855 100644
--- a/cop.h
+++ b/cop.h
@@ -783,6 +783,9 @@ L<perlcall>.
#define G_METHOD 128 /* Calling method. */
#define G_FAKINGEVAL 256 /* Faking an eval context for call_sv or
fold_constants. */
+#define G_UNDEF_FILL 512 /* Fill the stack with &PL_sv_undef
+ A special case for UNSHIFT in
+ Perl_magic_methcall(). */
/* flag bits for PL_in_eval */
#define EVAL_NULL 0 /* not in an eval */