Sort out malloc_mutex for perl's malloc

Remove BINCOMPAT3 from embed.pl 
Add dependancy to CORE_H for PERL95_OBJ

p4raw-id: //depot/ansiperl@333

1 files changed, 33 insertions, 47 deletions

diff --git a/embed.h b/embed.h
index 541fcf757e..caa19369f9 100644
--- a/embed.h
+++ b/embed.h
@@ -1,6 +1,6 @@
 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
-   This file is built by embed.pl from global.sym, interp.sym,
-   and compat3.sym.  Any changes made here will be lost!
+   This file is built by embed.pl from global.sym and interp.sym.
+   Any changes made here will be lost!
 */
 
 /* (Doing namespace management portably in C is really gross.) */
@@ -20,6 +20,7 @@
 #ifdef EMBED
 
 #define AMG_names		Perl_AMG_names
+#define Error			Perl_Error
 #define Gv_AMupdate		Perl_Gv_AMupdate
 #define No			Perl_No
 #define Sv			Perl_Sv
@@ -69,7 +70,9 @@
 #define block_end		Perl_block_end
 #define block_gimme		Perl_block_gimme
 #define block_start		Perl_block_start
+#define block_type		Perl_block_type
 #define bool__amg		Perl_bool__amg
+#define boot_core_UNIVERSAL	Perl_boot_core_UNIVERSAL
 #define bor_amg			Perl_bor_amg
 #define bufend			Perl_bufend
 #define bufptr			Perl_bufptr
@@ -126,6 +129,7 @@
 #define comppad			Perl_comppad
 #define comppad_name		Perl_comppad_name
 #define comppad_name_fill	Perl_comppad_name_fill
+#define comppad_name_floor	Perl_comppad_name_floor
 #define concat_amg		Perl_concat_amg
 #define concat_ass_amg		Perl_concat_ass_amg
 #define condpair_magic		Perl_condpair_magic
@@ -151,6 +155,7 @@
 #define debprofdump		Perl_debprofdump
 #define debstack		Perl_debstack
 #define debstackptrs		Perl_debstackptrs
+#define debug			Perl_debug
 #define dec_amg			Perl_dec_amg
 #define delimcpy		Perl_delimcpy
 #define deprecate		Perl_deprecate
@@ -183,6 +188,7 @@
 #define do_sysseek		Perl_do_sysseek
 #define do_tell			Perl_do_tell
 #define do_trans		Perl_do_trans
+#define do_undump		Perl_do_undump
 #define do_vecset		Perl_do_vecset
 #define do_vop			Perl_do_vop
 #define dofindlabel		Perl_dofindlabel
@@ -366,6 +372,7 @@
 #define magic_setvec		Perl_magic_setvec
 #define magic_wipepack		Perl_magic_wipepack
 #define magicname		Perl_magicname
+#define malloc_mutex		Perl_malloc_mutex
 #define markstack		Perl_markstack
 #define markstack_grow		Perl_markstack_grow
 #define markstack_max		Perl_markstack_max
@@ -466,6 +473,8 @@
 #define nexttoke		Perl_nexttoke
 #define nexttype		Perl_nexttype
 #define nextval			Perl_nextval
+#define nice_chunk		Perl_nice_chunk
+#define nice_chunk_size		Perl_nice_chunk_size
 #define ninstr			Perl_ninstr
 #define no_aelem		Perl_no_aelem
 #define no_dir_func		Perl_no_dir_func
@@ -474,10 +483,13 @@
 #define no_helem		Perl_no_helem
 #define no_mem			Perl_no_mem
 #define no_modify		Perl_no_modify
+#define no_myglob		Perl_no_myglob
 #define no_op			Perl_no_op
 #define no_security		Perl_no_security
 #define no_sock_func		Perl_no_sock_func
+#define no_symref		Perl_no_symref
 #define no_usym			Perl_no_usym
+#define no_wrongref		Perl_no_wrongref
 #define nointrp			Perl_nointrp
 #define nomem			Perl_nomem
 #define nomemok			Perl_nomemok
@@ -511,9 +523,11 @@
 #define pad_free		Perl_pad_free
 #define pad_leavemy		Perl_pad_leavemy
 #define pad_reset		Perl_pad_reset
+#define pad_reset_pending	Perl_pad_reset_pending
 #define pad_sv			Perl_pad_sv
 #define pad_swipe		Perl_pad_swipe
 #define padix			Perl_padix
+#define padix_floor		Perl_padix_floor
 #define patleave		Perl_patleave
 #define peep			Perl_peep
 #define pidgone			Perl_pidgone
@@ -915,6 +929,14 @@
 #define rxres_free		Perl_rxres_free
 #define rxres_restore		Perl_rxres_restore
 #define rxres_save		Perl_rxres_save
+#define safecalloc		Perl_safecalloc
+#define safefree		Perl_safefree
+#define safemalloc		Perl_safemalloc
+#define saferealloc		Perl_saferealloc
+#define safexcalloc		Perl_safexcalloc
+#define safexfree		Perl_safexfree
+#define safexmalloc		Perl_safexmalloc
+#define safexrealloc		Perl_safexrealloc
 #define same_dirent		Perl_same_dirent
 #define save_I16		Perl_save_I16
 #define save_I32		Perl_save_I32
@@ -931,6 +953,7 @@
 #define save_hptr		Perl_save_hptr
 #define save_int		Perl_save_int
 #define save_item		Perl_save_item
+#define save_iv			Perl_save_iv
 #define save_list		Perl_save_list
 #define save_long		Perl_save_long
 #define save_nogv		Perl_save_nogv
@@ -1049,6 +1072,7 @@
 #define sv_no			Perl_sv_no
 #define sv_nv			Perl_sv_nv
 #define sv_peek			Perl_sv_peek
+#define sv_pvn			Perl_sv_pvn
 #define sv_pvn_force		Perl_sv_pvn_force
 #define sv_ref			Perl_sv_ref
 #define sv_reftype		Perl_sv_reftype
@@ -1132,6 +1156,7 @@
 #define warn_nl			Perl_warn_nl
 #define warn_nosemi		Perl_warn_nosemi
 #define warn_reserved		Perl_warn_reserved
+#define warn_uninit		Perl_warn_uninit
 #define watch			Perl_watch
 #define watchaddr		Perl_watchaddr
 #define watchok			Perl_watchok
@@ -1145,6 +1170,7 @@
 #define yycheck			Perl_yycheck
 #define yydebug			Perl_yydebug
 #define yydefred		Perl_yydefred
+#define yydestruct		Perl_yydestruct
 #define yydgoto			Perl_yydgoto
 #define yyerrflag		Perl_yyerrflag
 #define yyerror			Perl_yyerror
@@ -1163,38 +1189,6 @@
 #define yyval			Perl_yyval
 #define yywarn			Perl_yywarn
 
-/* Hide global symbols that 5.003 revealed? */
-
-#ifndef BINCOMPAT3
-
-#define Error			Perl_Error
-#define block_type		Perl_block_type
-#define boot_core_UNIVERSAL	Perl_boot_core_UNIVERSAL
-#define comppad_name_floor	Perl_comppad_name_floor
-#define debug			Perl_debug
-#define do_undump		Perl_do_undump
-#define nice_chunk		Perl_nice_chunk
-#define nice_chunk_size		Perl_nice_chunk_size
-#define no_myglob		Perl_no_myglob
-#define no_symref		Perl_no_symref
-#define no_wrongref		Perl_no_wrongref
-#define pad_reset_pending	Perl_pad_reset_pending
-#define padix_floor		Perl_padix_floor
-#define safecalloc		Perl_safecalloc
-#define safefree		Perl_safefree
-#define safemalloc		Perl_safemalloc
-#define saferealloc		Perl_saferealloc
-#define safexcalloc		Perl_safexcalloc
-#define safexfree		Perl_safexfree
-#define safexmalloc		Perl_safexmalloc
-#define safexrealloc		Perl_safexrealloc
-#define save_iv			Perl_save_iv
-#define sv_pvn			Perl_sv_pvn
-#define warn_uninit		Perl_warn_uninit
-#define yydestruct		Perl_yydestruct
-
-#endif /* !BINCOMPAT3 */
-
 #endif /* EMBED */
 
 /* Put interpreter-specific symbols into a struct? */
@@ -1507,16 +1501,6 @@
 
 #ifdef EMBED
 
-#define curcop			Perl_curcop
-#define curcopdb		Perl_curcopdb
-#define envgv			Perl_envgv
-#define siggv			Perl_siggv
-#define tainting		Perl_tainting
-
-/* Hide interpreter symbols that 5.003 revealed? */
-
-#ifndef BINCOMPAT3
-
 #define Argv			Perl_Argv
 #define Cmd			Perl_Cmd
 #define DBgv			Perl_DBgv
@@ -1536,6 +1520,8 @@
 #define chopset			Perl_chopset
 #define copline			Perl_copline
 #define curblock		Perl_curblock
+#define curcop			Perl_curcop
+#define curcopdb		Perl_curcopdb
 #define curcsv			Perl_curcsv
 #define curpm			Perl_curpm
 #define curstack		Perl_curstack
@@ -1563,6 +1549,7 @@
 #define e_fp			Perl_e_fp
 #define e_tmpname		Perl_e_tmpname
 #define endav			Perl_endav
+#define envgv			Perl_envgv
 #define errgv			Perl_errgv
 #define eval_root		Perl_eval_root
 #define eval_start		Perl_eval_start
@@ -1633,6 +1620,7 @@
 #define screamfirst		Perl_screamfirst
 #define screamnext		Perl_screamnext
 #define secondgv		Perl_secondgv
+#define siggv			Perl_siggv
 #define signalstack		Perl_signalstack
 #define sortcop			Perl_sortcop
 #define sortstack		Perl_sortstack
@@ -1652,6 +1640,7 @@
 #define sv_objcount		Perl_sv_objcount
 #define sv_root			Perl_sv_root
 #define tainted			Perl_tainted
+#define tainting		Perl_tainting
 #define thrsv			Perl_thrsv
 #define tmps_floor		Perl_tmps_floor
 #define tmps_ix			Perl_tmps_ix
@@ -1662,8 +1651,5 @@
 #define unsafe			Perl_unsafe
 #define warnhook		Perl_warnhook
 
-#endif /* !BINCOMPAT3 */
-
 #endif /* EMBED */
-
 #endif /* MULTIPLICITY */