Microdoctweak.

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

diff --git a/embed.pl b/embed.pl
index 073cdf3..fee2363 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -4,7 +4,7 @@ require 5.003;  # keep this compatible, an old perl is all we may have before
                 # we build the new one
 
 #
-# See database of global and static function prototypes at the __END__.
+# See database of global and static function prototypes in embed.fnc
 # This is used to generate prototype headers under various configurations,
 # export symbols lists for different platforms, and macros to provide an
 # implicit interpreter context argument.
@@ -318,42 +318,6 @@ print EM <<'END';
 
 /* NO_EMBED is no longer supported. i.e. EMBED is always active. */
 
-/* provide binary compatible (but inconsistent) names */
-#if defined(PERL_BINCOMPAT_5005)
-#  define  Perl_call_atexit            perl_atexit
-#  define  Perl_eval_sv                        perl_eval_sv
-#  define  Perl_eval_pv                        perl_eval_pv
-#  define  Perl_call_argv              perl_call_argv
-#  define  Perl_call_method            perl_call_method
-#  define  Perl_call_pv                        perl_call_pv
-#  define  Perl_call_sv                        perl_call_sv
-#  define  Perl_get_av                 perl_get_av
-#  define  Perl_get_cv                 perl_get_cv
-#  define  Perl_get_hv                 perl_get_hv
-#  define  Perl_get_sv                 perl_get_sv
-#  define  Perl_init_i18nl10n          perl_init_i18nl10n
-#  define  Perl_init_i18nl14n          perl_init_i18nl14n
-#  define  Perl_new_collate            perl_new_collate
-#  define  Perl_new_ctype              perl_new_ctype
-#  define  Perl_new_numeric            perl_new_numeric
-#  define  Perl_require_pv             perl_require_pv
-#  define  Perl_safesyscalloc          Perl_safecalloc
-#  define  Perl_safesysfree            Perl_safefree
-#  define  Perl_safesysmalloc          Perl_safemalloc
-#  define  Perl_safesysrealloc         Perl_saferealloc
-#  define  Perl_set_numeric_local      perl_set_numeric_local
-#  define  Perl_set_numeric_standard   perl_set_numeric_standard
-/* malloc() pollution was the default in earlier versions, so enable
- * it for bincompat; but not for systems that used to do prevent that,
- * or when they ask for {HIDE,EMBED}MYMALLOC */
-#  if !defined(EMBEDMYMALLOC) && !defined(HIDEMYMALLOC)
-#    if !defined(NeXT) && !defined(__NeXT) && !defined(__MACHTEN__) && \
-        !defined(__QNX__)
-#      define  PERL_POLLUTE_MALLOC
-#    endif
-#  endif
-#endif
-
 /* Hide global symbols */
 
 #if !defined(PERL_IMPLICIT_CONTEXT)
@@ -463,7 +427,7 @@ print EM <<'END';
 #  define sv_setptrref(rv,ptr)         sv_setref_iv(rv,Nullch,PTR2IV(ptr))
 #endif
 
-#if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) && !defined(PERL_BINCOMPAT_5005)
+#if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT)
 
 /* Compatibility for various misnamed functions.  All functions
    in the API that begin with "perl_" (not "Perl_") take an explicit