diff options
Diffstat (limited to 'embed.pl')
| -rwxr-xr-x | embed.pl | 28 |
1 files changed, 1 insertions, 27 deletions
@@ -39,7 +39,7 @@ sub do_not_edit ($) !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by embed.pl from data in embed.fnc, embed.pl, -pp.sym, intrpvar.h, perlvars.h and thrdvar.h. +pp.sym, intrpvar.h, and perlvars.h. Any changes made here will be lost! Edit those files and run 'make regen_headers' to effect changes. @@ -342,17 +342,12 @@ sub readvars(\%$$@) { } my %intrp; -my %thread; my %globvar; readvars %intrp, 'intrpvar.h','I'; -readvars %thread, 'thrdvar.h','T'; readvars %globvar, 'perlvars.h','G'; my $sym; -foreach $sym (sort keys %thread) { - warn "$sym in intrpvar.h as well as thrdvar.h\n" if exists $intrp{$sym}; -} sub undefine ($) { my ($sym) = @_; @@ -669,16 +664,6 @@ print EM do_not_edit ("embedvar.h"), <<'END'; END -for $sym (sort keys %thread) { - print EM multon($sym,'T','vTHX->'); -} - -print EM <<'END'; - -/* cases 2 and 3 above */ - -END - for $sym (sort keys %intrp) { print EM multon($sym,'I','vTHX->'); } @@ -699,10 +684,6 @@ print EM <<'END'; END -for $sym (sort keys %thread) { - print EM multoff($sym,'T'); -} - print EM <<'END'; #endif /* MULTIPLICITY */ @@ -777,7 +758,6 @@ START_EXTERN_C #define PERLVARISC(v,i) typedef const char PL_##v##_t[sizeof(i)]; \ EXTERN_C PL_##v##_t* Perl_##v##_ptr(pTHX); -#include "thrdvar.h" #include "intrpvar.h" #include "perlvars.h" @@ -836,7 +816,6 @@ EXTCONST void * const PL_force_link_funcs[] = { #pragma message disable (nonstandcast) #endif -#include "thrdvar.h" #include "intrpvar.h" #include "perlvars.h" @@ -864,10 +843,6 @@ foreach $sym (sort keys %intrp) { print CAPIH bincompat_var('I',$sym); } -foreach $sym (sort keys %thread) { - print CAPIH bincompat_var('T',$sym); -} - foreach $sym (sort keys %globvar) { print CAPIH bincompat_var('G',$sym); } @@ -910,7 +885,6 @@ START_EXTERN_C #define PERLVARISC(v,i) PL_##v##_t* Perl_##v##_ptr(pTHX) \ { dVAR; PERL_UNUSED_CONTEXT; return &(aTHX->v); } -#include "thrdvar.h" #include "intrpvar.h" #undef PERLVAR |