[perl #74856] Fix POD syntax in perlapi

[p5sagit/p5-mst-13.2.git] / embed.h

diff --git a/embed.h b/embed.h
index eda36a7..a3f7408 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -43,6 +43,9 @@
 #endif
 #define get_context            Perl_get_context
 #define set_context            Perl_set_context
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#define regcurly               Perl_regcurly
+#endif
 #define amagic_call            Perl_amagic_call
 #define Gv_AMupdate            Perl_Gv_AMupdate
 #define gv_handler             Perl_gv_handler
@@ -291,7 +294,9 @@
 #define gv_fullname4           Perl_gv_fullname4
 #define gv_init                        Perl_gv_init
 #define gv_name_set            Perl_gv_name_set
+#ifdef PERL_CORE
 #define gv_try_downgrade       Perl_gv_try_downgrade
+#endif
 #define gv_stashpv             Perl_gv_stashpv
 #define gv_stashpvn            Perl_gv_stashpvn
 #define gv_stashsv             Perl_gv_stashsv
@@ -391,6 +396,7 @@
 #define is_utf8_punct          Perl_is_utf8_punct
 #define is_utf8_xdigit         Perl_is_utf8_xdigit
 #define is_utf8_mark           Perl_is_utf8_mark
+#if defined(PERL_CORE) || defined(PERL_EXT)
 #define is_utf8_X_begin                Perl_is_utf8_X_begin
 #define is_utf8_X_extend       Perl_is_utf8_X_extend
 #define is_utf8_X_prepend      Perl_is_utf8_X_prepend
@@ -401,6 +407,7 @@
 #define is_utf8_X_LV_LVT_V     Perl_is_utf8_X_LV_LVT_V
 #define is_utf8_X_T            Perl_is_utf8_X_T
 #define is_utf8_X_V            Perl_is_utf8_X_V
+#endif
 #ifdef PERL_CORE
 #define jmaybe                 Perl_jmaybe
 #define keyword                        Perl_keyword
@@ -451,6 +458,9 @@
 #endif
 #define looks_like_number      Perl_looks_like_number
 #define grok_bin               Perl_grok_bin
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#define grok_bslash_c          Perl_grok_bslash_c
+#endif
 #define grok_hex               Perl_grok_hex
 #define grok_number            Perl_grok_number
 #define grok_numeric_radix     Perl_grok_numeric_radix
@@ -1235,7 +1245,7 @@
 #ifdef PERL_CORE
 #define save_magic             S_save_magic
 #define magic_methpack         S_magic_methpack
-#define magic_methcall         S_magic_methcall
+#define magic_methcall1                S_magic_methcall1
 #define restore_magic          S_restore_magic
 #define unwind_handler_stack   S_unwind_handler_stack
 #endif
@@ -1447,7 +1457,6 @@
 #define regbranch              S_regbranch
 #define reguni                 S_reguni
 #define regclass               S_regclass
-#define regcurly               S_regcurly
 #define reg_node               S_reg_node
 #define reg_recode             S_reg_recode
 #define regpiece               S_regpiece
@@ -2454,6 +2463,9 @@
 #endif
 #define get_context            Perl_get_context
 #define set_context            Perl_set_context
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#define regcurly               Perl_regcurly
+#endif
 #define amagic_call(a,b,c,d)   Perl_amagic_call(aTHX_ a,b,c,d)
 #define Gv_AMupdate(a,b)       Perl_Gv_AMupdate(aTHX_ a,b)
 #define gv_handler(a,b)                Perl_gv_handler(aTHX_ a,b)
@@ -2689,7 +2701,9 @@
 #endif
 #define gv_init(a,b,c,d,e)     Perl_gv_init(aTHX_ a,b,c,d,e)
 #define gv_name_set(a,b,c,d)   Perl_gv_name_set(aTHX_ a,b,c,d)
+#ifdef PERL_CORE
 #define gv_try_downgrade(a)    Perl_gv_try_downgrade(aTHX_ a)
+#endif
 #define gv_stashpv(a,b)                Perl_gv_stashpv(aTHX_ a,b)
 #define gv_stashpvn(a,b,c)     Perl_gv_stashpvn(aTHX_ a,b,c)
 #define gv_stashsv(a,b)                Perl_gv_stashsv(aTHX_ a,b)
@@ -2797,6 +2811,7 @@
 #define is_utf8_punct(a)       Perl_is_utf8_punct(aTHX_ a)
 #define is_utf8_xdigit(a)      Perl_is_utf8_xdigit(aTHX_ a)
 #define is_utf8_mark(a)                Perl_is_utf8_mark(aTHX_ a)
+#if defined(PERL_CORE) || defined(PERL_EXT)
 #define is_utf8_X_begin(a)     Perl_is_utf8_X_begin(aTHX_ a)
 #define is_utf8_X_extend(a)    Perl_is_utf8_X_extend(aTHX_ a)
 #define is_utf8_X_prepend(a)   Perl_is_utf8_X_prepend(aTHX_ a)
@@ -2807,6 +2822,7 @@
 #define is_utf8_X_LV_LVT_V(a)  Perl_is_utf8_X_LV_LVT_V(aTHX_ a)
 #define is_utf8_X_T(a)         Perl_is_utf8_X_T(aTHX_ a)
 #define is_utf8_X_V(a)         Perl_is_utf8_X_V(aTHX_ a)
+#endif
 #ifdef PERL_CORE
 #define jmaybe(a)              Perl_jmaybe(aTHX_ a)
 #define keyword(a,b,c)         Perl_keyword(aTHX_ a,b,c)
@@ -2856,6 +2872,9 @@
 #endif
 #define looks_like_number(a)   Perl_looks_like_number(aTHX_ a)
 #define grok_bin(a,b,c,d)      Perl_grok_bin(aTHX_ a,b,c,d)
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#define grok_bslash_c(a,b)     Perl_grok_bslash_c(aTHX_ a,b)
+#endif
 #define grok_hex(a,b,c,d)      Perl_grok_hex(aTHX_ a,b,c,d)
 #define grok_number(a,b,c)     Perl_grok_number(aTHX_ a,b,c)
 #define grok_numeric_radix(a,b)        Perl_grok_numeric_radix(aTHX_ a,b)
@@ -3634,7 +3653,7 @@
 #ifdef PERL_CORE
 #define save_magic(a,b)                S_save_magic(aTHX_ a,b)
 #define magic_methpack(a,b,c)  S_magic_methpack(aTHX_ a,b,c)
-#define magic_methcall(a,b,c,d,e,f)    S_magic_methcall(aTHX_ a,b,c,d,e,f)
+#define magic_methcall1(a,b,c,d,e,f)   S_magic_methcall1(aTHX_ a,b,c,d,e,f)
 #define restore_magic(a)       S_restore_magic(aTHX_ a)
 #define unwind_handler_stack(a)        S_unwind_handler_stack(aTHX_ a)
 #endif
@@ -3856,7 +3875,6 @@
 #define regbranch(a,b,c,d)     S_regbranch(aTHX_ a,b,c,d)
 #define reguni(a,b,c)          S_reguni(aTHX_ a,b,c)
 #define regclass(a,b)          S_regclass(aTHX_ a,b)
-#define regcurly               S_regcurly
 #define reg_node(a,b)          S_reg_node(aTHX_ a,b)
 #define reg_recode(a,b)                S_reg_recode(aTHX_ a,b)
 #define regpiece(a,b,c)                S_regpiece(aTHX_ a,b,c)