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, 4 insertions, 33 deletions

diff --git a/embed.pl b/embed.pl
index 266a33e7e0..68a15df1bd 100755
--- a/embed.pl
+++ b/embed.pl
@@ -19,7 +19,6 @@ sub readsyms (\%$) {
 
 readsyms %global, 'global.sym';
 readsyms %interp, 'interp.sym';
-readsyms %compat3, 'compat3.sym';
 
 sub hide ($$) {
     my ($from, $to) = @_;
@@ -45,8 +44,8 @@ open(EM, '> embed.h')
 
 print EM <<'END';
 /* !!!!!!!   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.) */
@@ -68,25 +67,12 @@ print EM <<'END';
 END
 
 for $sym (sort keys %global) {
-    print EM embed($sym) unless $compat3{$sym};
+    print EM embed($sym);
 }
 
-print EM <<'END';
-
-/* Hide global symbols that 5.003 revealed? */
-
-#ifndef BINCOMPAT3
-
-END
-
-for $sym (sort keys %global) {
-    print EM embed($sym) if $compat3{$sym};
-}
 
 print EM <<'END';
 
-#endif /* !BINCOMPAT3 */
-
 #endif /* EMBED */
 
 /* Put interpreter-specific symbols into a struct? */
@@ -118,27 +104,12 @@ print EM <<'END';
 END
 
 for $sym (sort keys %interp) {
-    print EM embed($sym) if $compat3{$sym};
-}
-
-print EM <<'END';
-
-/* Hide interpreter symbols that 5.003 revealed? */
-
-#ifndef BINCOMPAT3
-
-END
-
-for $sym (sort keys %interp) {
-    print EM embed($sym) unless $compat3{$sym};
+    print EM embed($sym);
 }
 
 print EM <<'END';
 
-#endif /* !BINCOMPAT3 */
-
 #endif /* EMBED */
-
 #endif /* MULTIPLICITY */
 END