From d682515ddb57d53757782d63f41bfeee5275187b Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 5 Jan 2011 11:43:58 +0000 Subject: Rename tied_handle_method() to tied_method(), and make it non-static. It can be used for (at least) the call to "SPLICE" from pp_splice. --- pp.h | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'pp.h') diff --git a/pp.h b/pp.h index f3368f76e6..3070476fc9 100644 --- a/pp.h +++ b/pp.h @@ -491,6 +491,14 @@ True if this op will be the return value of an lvalue subroutine ) \ ) +#ifdef PERL_CORE +/* These are just for Perl_tied_method(), which is not part of the public API. + Use 0x04 rather than the next available bit, to help the compiler if the + architecture can generate more efficient instructions. */ +# define TIED_METHOD_MORTALIZE_NOT_NEEDED 0x04 +# define TIED_METHOD_ARGUMENTS_ON_STACK 0x08 +#endif + /* * Local variables: * c-indentation-style: bsd -- cgit v1.2.1