From b8c38f0a2a65800ef71a3715d0a31299fcfb4986 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Mon, 25 Jul 2011 22:33:40 -0700 Subject: Add core_prototype; make pp_prototype use it MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This commit moves the code for generating core prototypes into a sepa- rate function, core_prototype, in op.c. This serves two porpoises: • It allows the lock and tie exceptional cases to be incorporated into the main prototype=generation code, which requires the use of a static function in op.c. • It allows other parts of the core (e.g., the upcoming \&CORE::foo feature) to use the same code. The docs for it are in a section boringly entitled ‘Functions in op.c’, for lack of a better name. This, I believe, is the only op.c function that is in perlintern currently, so it’s hard to see what to name a section that will, at least for now, contain nothing else. --- embed.h | 1 + 1 file changed, 1 insertion(+) (limited to 'embed.h') diff --git a/embed.h b/embed.h index 38ce471256..f0b8214e2e 100644 --- a/embed.h +++ b/embed.h @@ -1009,6 +1009,7 @@ #define ck_trunc(a) Perl_ck_trunc(aTHX_ a) #define ck_unpack(a) Perl_ck_unpack(aTHX_ a) #define convert(a,b,c) Perl_convert(aTHX_ a,b,c) +#define core_prototype(a,b,c,d) Perl_core_prototype(aTHX_ a,b,c,d) #define create_eval_scope(a) Perl_create_eval_scope(aTHX_ a) #define cv_ckproto_len(a,b,c,d) Perl_cv_ckproto_len(aTHX_ a,b,c,d) #define cvgv_set(a,b) Perl_cvgv_set(aTHX_ a,b) -- cgit v1.2.1