diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 14:30:54 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 14:30:54 +0000 |
| commit | 8f8722428a3062985b7d543348f72ccabf60a063 (patch) | |
| tree | fb3182ddd757130b628be8e0b18fdbe61b2aa7a8 /perl.c | |
| parent | 3280af22f58e7b37514ed104858e2c2fc55ceeeb (diff) | |
| download | perl-8f8722428a3062985b7d543348f72ccabf60a063.tar.gz | |
Builds and passes tests with -DMULTIPLICITY and -DCRIPPLED_CC
(still with PERL_GLOBAL_STRUCT) - to cover more #if branches
p4raw-id: //depot/ansiperl@1533
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -112,7 +112,7 @@ perl_construct(register PerlInterpreter *sv_interp) #endif #ifdef MULTIPLICITY - ++ninterps; + ++PL_ninterps; Zero(sv_interp, 1, PerlInterpreter); #endif @@ -189,7 +189,7 @@ perl_construct(register PerlInterpreter *sv_interp) init_stacks(ARGS); #ifdef MULTIPLICITY init_interp(); - perl_destruct_level = 1; + PL_perl_destruct_level = 1; #else if (PL_perl_destruct_level > 0) init_interp(); @@ -337,7 +337,7 @@ perl_destruct(register PerlInterpreter *sv_interp) FREETMPS; #ifdef MULTIPLICITY - --ninterps; + --PL_ninterps; #endif /* We must account for everything. */ @@ -804,7 +804,7 @@ setuid perl scripts securely.\n"); sv_catpv(Sv," NO_EMBED"); # endif # ifdef MULTIPLICITY - sv_catpv(Sv," MULTIPLICITY"); + sv_catpv(PL_Sv," MULTIPLICITY"); # endif sv_catpv(PL_Sv,"\\n\","); #endif @@ -1841,8 +1841,8 @@ init_interp(void) #else # ifdef MULTIPLICITY # define PERLVAR(var,type) -# define PERLVARI(var,type,init) curinterp->var = init; -# define PERLVARIC(var,type,init) curinterp->var = init; +# define PERLVARI(var,type,init) PL_curinterp->var = init; +# define PERLVARIC(var,type,init) PL_curinterp->var = init; # include "intrpvar.h" # ifndef USE_THREADS # include "thrdvar.h" |