diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-05-04 22:18:42 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-05-04 22:18:42 +0000 |
| commit | f06b58485d86282d0dbf47ffb2a797860a8346a7 (patch) | |
| tree | 07c4e5c03fed4ea4d26bc3992145d69cc6e14b04 /intrpvar.h | |
| parent | a78e478ad711fa7fa8f46adc6709dd5ab38118c6 (diff) | |
| download | perl-f06b58485d86282d0dbf47ffb2a797860a8346a7.tar.gz | |
move some more variables into the PL_parser struct:
PL_bufptr PL_oldbufptr PL_oldoldbufptr
PL_linestart PL_bufend
PL_last_uni PL_last_lop PL_last_lop_op
p4raw-id: //depot/perl@31147
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/intrpvar.h b/intrpvar.h index 543acd0688..5799966133 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -189,8 +189,6 @@ PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */ PERLVAR(Ipreambleav, AV *) PERLVAR(Imess_sv, SV *) PERLVAR(Iors_sv, SV *) /* output record separator $\ */ - /* Space for one more U16 here without increasing the structure size */ -PERLVAR(Ilast_lop_op, OPCODE) /* last list operator */ PERLVAR(Iin_my, U16) /* we're compiling a "my" (or "our") declaration */ PERLVARI(Ilaststype, U16, OP_STAT) PERLVARI(Ilaststatval, int, -1) @@ -241,8 +239,6 @@ PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */ PERLVAR(Inomemok, bool) /* let malloc context handle nomem */ PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */ -PERLVAR(Ilinestart, char *) /* beg. of most recently read line */ - PERLVAR(Iuid, Uid_t) /* current real user id */ PERLVAR(Ieuid, Uid_t) /* current effective user id */ PERLVAR(Igid, Gid_t) /* current real group id */ @@ -299,11 +295,6 @@ PERLVARA(Inexttype,5, I32) /* type of next token */ PERLVAR(Inexttoke, I32) #endif -PERLVAR(Ibufptr, char *) -PERLVAR(Ioldbufptr, char *) -PERLVAR(Ioldoldbufptr, char *) -PERLVAR(Ibufend, char *) - PERLVAR(Ilex_state, U8) /* next token is determined */ PERLVAR(Ierror_count, U8) /* how many errors so far, max 10 */ PERLVARI(Icv_has_eval, bool, FALSE) /* PL_compcv includes an entereval or similar */ @@ -322,8 +313,6 @@ PERLVAR(Ipadix, I32) /* max used index in current "register" pad */ PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix */ PERLVAR(Ipad_reset_pending, I32) /* reset pad on next attempted alloc */ -PERLVAR(Ilast_uni, char *) /* position of last named-unary op */ -PERLVAR(Ilast_lop, char *) /* position of last list operator */ PERLVAR(Iin_my_stash, HV *) /* declared class of this "my" declaration */ PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */ |