This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make regen.
authorBen Morrow <ben@morrow.me.uk>
Tue, 31 Aug 2010 08:00:51 +0000 (09:00 +0100)
committerRafael Garcia-Suarez <rgs@consttype.org>
Tue, 7 Sep 2010 10:10:19 +0000 (12:10 +0200)
embed.h
global.sym
proto.h

diff --git a/embed.h b/embed.h
index 8b50079..c883056 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -90,6 +90,7 @@
 #define boot_core_PerlIO       Perl_boot_core_PerlIO
 #endif
 #define call_list              Perl_call_list
+#define caller_cx              Perl_caller_cx
 #ifdef PERL_CORE
 #define cando                  Perl_cando
 #endif
 #endif
 #ifdef PERL_CORE
 #define convert                        Perl_convert
+#endif
+#define cop_hints_2hv          Perl_cop_hints_2hv
+#define cop_hints_fetchpvn     Perl_cop_hints_fetchpvn
+#ifdef PERL_CORE
 #define create_eval_scope      Perl_create_eval_scope
 #endif
 #define croak_sv               Perl_croak_sv
 #define boot_core_PerlIO()     Perl_boot_core_PerlIO(aTHX)
 #endif
 #define call_list(a,b)         Perl_call_list(aTHX_ a,b)
+#define caller_cx(a,b)         Perl_caller_cx(aTHX_ a,b)
 #ifdef PERL_CORE
 #define cando(a,b,c)           Perl_cando(aTHX_ a,b,c)
 #endif
 #endif
 #ifdef PERL_CORE
 #define convert(a,b,c)         Perl_convert(aTHX_ a,b,c)
+#endif
+#define cop_hints_2hv(a)       Perl_cop_hints_2hv(aTHX_ a)
+#define cop_hints_fetchpvn(a,b,c,d,e)  Perl_cop_hints_fetchpvn(aTHX_ a,b,c,d,e)
+#ifdef PERL_CORE
 #define create_eval_scope(a)   Perl_create_eval_scope(aTHX_ a)
 #endif
 #define croak_sv(a)            Perl_croak_sv(aTHX_ a)
index 92f96a5..4734a33 100644 (file)
@@ -58,11 +58,14 @@ Perl_av_iter_p
 Perl_block_gimme
 Perl_blockhook_register
 Perl_call_list
+Perl_caller_cx
 Perl_cast_ulong
 Perl_cast_i32
 Perl_cast_iv
 Perl_cast_uv
 Perl_my_chsize
+Perl_cop_hints_2hv
+Perl_cop_hints_fetchpvn
 Perl_croak_sv
 Perl_croak
 Perl_vcroak
diff --git a/proto.h b/proto.h
index add70bf..c42883f 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -301,6 +301,7 @@ PERL_CALLCONV void  Perl_call_list(pTHX_ I32 oldscope, AV *paramList)
 #define PERL_ARGS_ASSERT_CALL_LIST     \
        assert(paramList)
 
+PERL_CALLCONV const PERL_CONTEXT *     Perl_caller_cx(pTHX_ I32 level, const PERL_CONTEXT **dbcxp);
 PERL_CALLCONV bool     Perl_cando(pTHX_ Mode_t mode, bool effective, const Stat_t* statbufp)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_3);
@@ -327,6 +328,25 @@ PERL_CALLCONV I32  Perl_my_chsize(pTHX_ int fd, Off_t length)
 PERL_CALLCONV OP*      Perl_convert(pTHX_ I32 optype, I32 flags, OP* o)
                        __attribute__warn_unused_result__;
 
+PERL_CALLCONV HV*      Perl_cop_hints_2hv(pTHX_ const COP *cop)
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_COP_HINTS_2HV \
+       assert(cop)
+
+PERL_CALLCONV SV*      Perl_cop_hints_fetchpvn(pTHX_ const COP *cop, const char *key, STRLEN klen, int flags, U32 hash)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+#define PERL_ARGS_ASSERT_COP_HINTS_FETCHPVN    \
+       assert(cop); assert(key)
+
+/* PERL_CALLCONV SV*   cop_hints_fetchpvs(pTHX_ const COP *cop, const char *const key)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2); */
+
+/* PERL_CALLCONV SV*   cop_hints_fetchsv(pTHX_ const COP *cop, SV *keysv, U32 hash)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2); */
+
 PERL_CALLCONV PERL_CONTEXT*    Perl_create_eval_scope(pTHX_ U32 flags);
 PERL_CALLCONV void     Perl_croak_sv(pTHX_ SV *baseex)
                        __attribute__noreturn__