From: Jarkko Hietaniemi Date: Wed, 12 Aug 1998 22:41:37 +0000 (+0300) Subject: 5.004_50 or 5.005_02: get rid of interp.sym because not even AIX needs it X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4d5a464a77aaa196c56d6d73e56e8cdc9decc69;p=p5sagit%2Fp5-mst-13.2.git 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 --- 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 --- 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 --- 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 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 --- 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 <> perl.exp +cat >>perl.exp <>perl.exp <>perl.exp <