diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-08 18:47:35 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-08 18:47:35 +0000 |
| commit | 51371543ca1a75ed152020ad0846b5b8cf11c32f (patch) | |
| tree | 9bfd9a21697b0769e2681483631c742642dd8c45 /perl.c | |
| parent | 4d61ec052de5c3a91dc64c80c032c2cbec44d845 (diff) | |
| download | perl-51371543ca1a75ed152020ad0846b5b8cf11c32f.tar.gz | |
more PERL_OBJECT cleanups (changes still untested on Unix!)
p4raw-id: //depot/perl@3660
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -1902,6 +1902,7 @@ S_init_interp(pTHX) #else # ifdef MULTIPLICITY # define PERLVAR(var,type) +# define PERLVARA(var,n,type) # if defined(PERL_IMPLICIT_CONTEXT) # define PERLVARI(var,type,init) my_perl->var = init; # define PERLVARIC(var,type,init) my_perl->var = init; @@ -1914,10 +1915,12 @@ S_init_interp(pTHX) # include "thrdvar.h" # endif # undef PERLVAR +# undef PERLVARA # undef PERLVARI # undef PERLVARIC # else # define PERLVAR(var,type) +# define PERLVARA(var,n,type) # define PERLVARI(var,type,init) PL_##var = init; # define PERLVARIC(var,type,init) PL_##var = init; # include "intrpvar.h" @@ -1925,6 +1928,7 @@ S_init_interp(pTHX) # include "thrdvar.h" # endif # undef PERLVAR +# undef PERLVARA # undef PERLVARI # undef PERLVARIC # endif @@ -3119,9 +3123,8 @@ S_my_exit_jump(pTHX) #ifdef PERL_OBJECT #define NO_XSLOCKS -#endif /* PERL_OBJECT */ - #include "XSUB.h" +#endif static I32 read_e_script(pTHXo_ int idx, SV *buf_sv, int maxlen) |