Add QNX Neutrino RTOS to list of platforms in perlport

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index 7f079b7..42515df 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -47,6 +47,7 @@
 #define av_undef(a)            Perl_av_undef(aTHX_ a)
 #define av_unshift(a,b)                Perl_av_unshift(aTHX_ a,b)
 #define block_gimme()          Perl_block_gimme(aTHX)
+#define bytes_cmp_utf8(a,b,c,d)        Perl_bytes_cmp_utf8(aTHX_ a,b,c,d)
 #define bytes_from_utf8(a,b,c) Perl_bytes_from_utf8(aTHX_ a,b,c)
 #define bytes_to_utf8(a,b)     Perl_bytes_to_utf8(aTHX_ a,b)
 #define call_argv(a,b,c)       Perl_call_argv(aTHX_ a,b,c)
@@ -333,7 +334,6 @@
 #define newRV_noinc(a)         Perl_newRV_noinc(aTHX_ a)
 #define newSLICEOP(a,b,c)      Perl_newSLICEOP(aTHX_ a,b,c)
 #define newSTATEOP(a,b,c)      Perl_newSTATEOP(aTHX_ a,b,c)
-#define newSUB(a,b,c,d)                Perl_newSUB(aTHX_ a,b,c,d)
 #define newSV(a)               Perl_newSV(aTHX_ a)
 #define newSVOP(a,b,c)         Perl_newSVOP(aTHX_ a,b,c)
 #define newSVREF(a)            Perl_newSVREF(aTHX_ a)
@@ -521,9 +521,7 @@
 #define sv_catsv_flags(a,b,c)  Perl_sv_catsv_flags(aTHX_ a,b,c)
 #define sv_chop(a,b)           Perl_sv_chop(aTHX_ a,b)
 #define sv_clear(a)            Perl_sv_clear(aTHX_ a)
-#define sv_cmp(a,b)            Perl_sv_cmp(aTHX_ a,b)
 #define sv_cmp_flags(a,b,c)    Perl_sv_cmp_flags(aTHX_ a,b,c)
-#define sv_cmp_locale(a,b)     Perl_sv_cmp_locale(aTHX_ a,b)
 #define sv_cmp_locale_flags(a,b,c)     Perl_sv_cmp_locale_flags(aTHX_ a,b,c)
 #define sv_compile_2op(a,b,c,d)        Perl_sv_compile_2op(aTHX_ a,b,c,d)
 #define sv_copypv(a,b)         Perl_sv_copypv(aTHX_ a,b)
@@ -1058,7 +1056,7 @@
 #define magic_wipepack(a,b)    Perl_magic_wipepack(aTHX_ a,b)
 #define mg_localize(a,b,c)     Perl_mg_localize(aTHX_ a,b,c)
 #define mode_from_discipline(a,b)      Perl_mode_from_discipline(aTHX_ a,b)
-#define mro_isa_changed_in3(a,b,c)     Perl_mro_isa_changed_in3(aTHX_ a,b,c)
+#define mro_isa_changed_in(a)  Perl_mro_isa_changed_in(aTHX_ a)
 #define mro_package_moved(a,b,c,d,e)   Perl_mro_package_moved(aTHX_ a,b,c,d,e)
 #define munge_qwlist_to_paren_list(a)  Perl_munge_qwlist_to_paren_list(aTHX_ a)
 #define my_attrs(a,b)          Perl_my_attrs(aTHX_ a,b)
@@ -1084,7 +1082,6 @@
 #define pad_push(a,b)          Perl_pad_push(aTHX_ a,b)
 #define pad_swipe(a,b)         Perl_pad_swipe(aTHX_ a,b)
 #define pad_tidy(a)            Perl_pad_tidy(aTHX_ a)
-#define pad_undef(a)           Perl_pad_undef(aTHX_ a)
 #define parse_unicode_opts(a)  Perl_parse_unicode_opts(aTHX_ a)
 #define parser_free(a)         Perl_parser_free(aTHX_ a)
 #define peep(a)                        Perl_peep(aTHX_ a)
@@ -1522,7 +1519,7 @@
 #  endif
 #  if !defined(PERL_DISABLE_PMC)
 #    if defined(PERL_IN_PP_CTL_C)
-#define doopen_pm(a,b)         S_doopen_pm(aTHX_ a,b)
+#define doopen_pm(a)           S_doopen_pm(aTHX_ a)
 #    endif
 #  endif
 #  if !defined(PERL_NO_UTF16_FILTER)
@@ -1640,7 +1637,7 @@
 #  endif
 #  if defined(PERL_IN_MRO_C)
 #define mro_clean_isarev(a,b,c,d)      S_mro_clean_isarev(aTHX_ a,b,c,d)
-#define mro_gather_and_rename(a,b,c,d,e)       S_mro_gather_and_rename(aTHX_ a,b,c,d,e)
+#define mro_gather_and_rename(a,b,c,d,e,f)     S_mro_gather_and_rename(aTHX_ a,b,c,d,e,f)
 #define mro_get_linear_isa_dfs(a,b)    S_mro_get_linear_isa_dfs(aTHX_ a,b)
 #  endif
 #  if defined(PERL_IN_NUMERIC_C)