5.004_50 or 5.005_02: get rid of interp.sym because not even AIX needs it

	Message-Id: <199808121941.WAA06263@alpha.hut.fi>

p4raw-id: //depot/perl@1826

diff --git a/MANIFEST b/MANIFEST
index 5431bd9..8db3514 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -436,7 +436,6 @@ hv.h                        Hash value header
 installhtml            Perl script to install html files for pods
 installman             Perl script to install man pages for pods
 installperl            Perl script to do "make install" dirty work
-interp.sym             Interpreter specific symbols to hide in a struct
 intrpvar.h             Variables held in each interpreter instance
 iperlsys.h             Perl's interface to the system
 keywords.h             The keyword numbers

diff --git a/Makefile.SH b/Makefile.SH
index ff2008f..6c8cfce 100644 (file)
--- a/Makefile.SH
+++ b/Makefile.SH
@@ -450,6 +450,7 @@ perly.h: perly.y
        -@sh -c true
 
 # No compat3.sym here since and including the 5.004_50.
+# No interp.sym since 5.005_03.
 SYM  = global.sym interp.sym perlio.sym thread.sym
 
 SYMH = perlvars.h thrdvar.h

diff --git a/embed.pl b/embed.pl
index a7fb0ed..1d10c6c 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -37,7 +37,6 @@ sub readsyms (\%$) {
 }
 
 readsyms %global, 'global.sym';
-readsyms %interp, 'interp.sym';
 
 sub readvars(\%$$) {
     my ($syms, $file,$pre) = @_;
@@ -80,12 +79,6 @@ foreach my $sym (sort keys %globvar)
    }
  }
 
-foreach my $sym (keys %interp)
- {
-  warn "extra $sym in interp.sym\n" 
-   unless exists $intrp{$sym} || exists $thread{$sym};
- }
-
 foreach my $sym (sort keys %thread)
  {
   warn "$sym in intrpvar.h\n" if exists $intrp{$sym};

diff --git a/interp.sym b/interp.sym
deleted file mode 100644 (file)
index fbbe2a7..0000000
--- a/interp.sym
+++ /dev/null
@@ -1,211 +0,0 @@
-Argv
-Cmd
-DBcv
-DBgv
-DBline
-DBsignal
-DBsingle
-DBsub
-DBtrace
-ampergv
-archpat_auto
-argvgv
-argvoutgv
-basetime
-beginav
-bodytarget
-bostr
-cddir
-chopset
-colors
-colorset
-compcv
-compiling
-comppad
-comppad_name
-comppad_name_fill
-comppad_name_floor
-copline
-curcop
-curcopdb
-curpm
-curstack
-curstash
-curstname
-dbargs
-debdelim
-debname
-debstash
-defgv
-defoutgv
-defstash
-delaymagic
-diehook
-dirty
-dlevel
-dlmax
-doextract
-doswitches
-dowarn
-dumplvl
-e_script
-endav
-envgv
-errgv
-eval_root
-eval_start
-exitlist
-exitlistlen
-extralen
-fdpid
-filemode
-firstgv
-forkprocess
-formfeed
-formtarget
-generation
-gensym
-globalstash
-hintgv
-in_clean_all
-in_clean_objs
-in_eval
-incgv
-initav
-inplace
-bytecode_iv_overflows
-sys_intern
-last_in_gv
-last_proto
-lastfd
-lastgotoprobe
-lastscream
-lastsize
-lastspbase
-laststatval
-laststype
-leftgv
-lineary
-linestart
-localizing
-localpatches
-main_cv
-main_root
-main_start
-mainstack
-maxscream
-maxsysfd
-mess_sv
-minus_F
-minus_a
-minus_c
-minus_l
-minus_n
-minus_p
-modglobal
-modcount
-multiline
-mystrk
-nrs
-bytecode_obj_list
-bytecode_obj_list_fill
-ofmt
-ofs
-ofslen
-oldlastpm
-oldname
-op_mask
-origargc
-origargv
-origfilename
-ors
-orslen
-parsehook
-patchlevel
-pending_ident
-perldb
-perl_destruct_level
-preambled
-preambleav
-preprocess
-profiledata
-bytecode_pv
-reg_eval_set
-reg_flags
-reg_start_tmp
-reg_start_tmpl
-regbol
-regcc
-regcode
-regcompp
-regexecp
-regdata
-regdummy
-regendp
-regeol
-regflags
-regindent
-reginput
-reginterp_cnt
-reglastparen
-regnarrate
-regnaughty
-regnpar
-regcomp_parse
-regprecomp
-regprev
-regprogram
-regsawback
-regseen
-regsize
-regstartp
-regtill
-regxend
-replgv
-restartop
-rightgv
-rs
-rsfp
-rsfp_filters
-regcomp_rx
-sawampersand
-sawstudy
-sawvec
-screamfirst
-screamnext
-secondgv
-seen_zerolen
-seen_evals
-siggv
-sortcop
-sortcxix
-sortstash
-splitstr
-start_env
-statcache
-statgv
-statname
-statusvalue
-statusvalue_vms
-stdingv
-strchop
-strtab
-sub_generation
-sublex_info
-bytecode_sv
-sv_count
-sv_objcount
-sv_root
-sv_arenaroot
-tainted
-tainting
-threadnum
-thrsv
-tmps_floor
-tmps_ix
-tmps_max
-tmps_stack
-top_env
-toptarget
-unsafe
-warnhook

diff --git a/perl_exp.SH b/perl_exp.SH
index b8b2907..a210173 100644 (file)
--- a/perl_exp.SH
+++ b/perl_exp.SH
@@ -49,8 +49,10 @@ rm -f perl.exp
 echo "#!" > perl.exp
 
 # No compat3 since 5.004_50.
-# perlio.sym will added below if needed.
-syms="global.sym interp.sym thread.sym"
+# No interp.sym since 5.005_03.
+# perlio.sym will added later if needed.
+
+syms="global.sym thread.sym"
 
 sed -n '/^[A-Za-z]/ s/^/Perl_/p' $syms                 >> perl.exp
 
@@ -59,7 +61,7 @@ sed -n 's/^PERLVAR.*(I\([^[,]*\).*/PL_\1/p' intrpvar.h >> perl.exp
 sed -n 's/^PERLVAR.*(T\([^[,]*\).*/PL_\1/p' thrdvar.h  >> perl.exp
 
 # 
-# If we use the PerlIO abstraction layer, add its symbols
+# If we use the PerlIO abstraction layer, add its symbols.
 #
 
 if [ $useperlio = "define" ]
@@ -72,7 +74,7 @@ fi
 # not actually be defined, but there's no harm in that).
 #
 
-cat <<END >> perl.exp
+cat >>perl.exp <<END
 perl_init_i18nl10n
 perl_init_i18nl14n
 perl_new_collate
@@ -97,15 +99,29 @@ perl_call_sv
 perl_eval_pv
 perl_eval_sv
 perl_require_pv
+END
+
+case "$ccflags" in
+*-DHIDEMYMALLOC*)
+  cat >>perl.exp <<END
 Mymalloc
 Mycalloc
 Myremalloc
 Myfree
+END
+  ;;
+esac
+
+case "$ccflags" in
+*-DEMBEDMYMALLOC*)
+  cat >>perl.exp <<END
 Perl_malloc
 Perl_calloc
 Perl_realloc
 Perl_free
 END
+  ;;
+esac
 
 # The shebang line nicely sorts as the first one.
 sort -o perl.exp -u perl.exp