diff options
| author | Radu Greab <radu@netsoft.ro> | 2003-08-05 23:57:15 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-10-21 21:21:56 +0000 |
| commit | bf9cdc68d248e456c55258025f0d0724ca63226d (patch) | |
| tree | df180b40a00a02d3bc0a3ff6eb6e68872cdf6676 /intrpvar.h | |
| parent | 69fc43e8cc1ab20ea33528914d94e54ac04360ed (diff) | |
| download | perl-bf9cdc68d248e456c55258025f0d0724ca63226d.tar.gz | |
embedding perl
Message-Id: <20030805.205715.113441323.radu@yx.primIT.ro>
p4raw-id: //depot/perl@21514
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/intrpvar.h b/intrpvar.h index 09709ea123..7017a70f33 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -169,7 +169,7 @@ PERLVAR(Ilastfd, int) /* what to preserve mode on */ PERLVAR(Ioldname, char *) /* what to preserve mode on */ PERLVAR(IArgv, char **) /* stuff to free from do_aexec, vfork safe */ PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */ -PERLVAR(Igensym, I32) /* next symbol for getsym() to define */ +PERLVARI(Igensym, I32, 0) /* next symbol for getsym() to define */ PERLVAR(Ipreambled, bool) PERLVAR(Ipreambleav, AV *) PERLVARI(Ilaststatval, int, -1) @@ -233,10 +233,10 @@ PERLVAR(Ieuid, Uid_t) /* current effective user id */ PERLVAR(Igid, Gid_t) /* current real group id */ PERLVAR(Iegid, Gid_t) /* current effective group id */ PERLVAR(Inomemok, bool) /* let malloc context handle nomem */ -PERLVAR(Ian, U32) /* malloc sequence number */ -PERLVAR(Icop_seqmax, U32) /* statement sequence number */ -PERLVAR(Iop_seqmax, U16) /* op sequence number */ -PERLVAR(Ievalseq, U32) /* eval sequence number */ +PERLVARI(Ian, U32, 0) /* malloc sequence number */ +PERLVARI(Icop_seqmax, U32, 0) /* statement sequence number */ +PERLVARI(Iop_seqmax, U16, 0) /* op sequence number */ +PERLVARI(Ievalseq, U32, 0) /* eval sequence number */ PERLVAR(Iorigenviron, char **) PERLVAR(Iorigalen, U32) PERLVAR(Ipidstatus, HV *) /* pid-to-status mappings for waitpid */ @@ -290,7 +290,7 @@ PERLVAR(Isv_yes, SV) #ifdef CSH PERLVARI(Icshname, char *, CSH) -PERLVAR(Icshlen, I32) +PERLVARI(Icshlen, I32, 0) #endif PERLVAR(Ilex_state, U32) /* next token is determined */ @@ -342,17 +342,17 @@ PERLVAR(Ilast_lop_op, OPCODE) /* last list operator */ PERLVAR(Iin_my, I32) /* we're compiling a "my" (or "our") declaration */ PERLVAR(Iin_my_stash, HV *) /* declared class of this "my" declaration */ #ifdef FCRYPT -PERLVAR(Icryptseen, bool) /* has fast crypt() been initialized? */ +PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */ #endif PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */ PERLVAR(Idebug, VOL U32) /* flags given to -D switch */ -PERLVAR(Iamagic_generation, long) +PERLVARI(Iamagic_generation, long, 0) #ifdef USE_LOCALE_COLLATE -PERLVAR(Icollation_ix, U32) /* Collation generation index */ +PERLVARI(Icollation_ix, U32, 0) /* Collation generation index */ PERLVAR(Icollation_name,char *) /* Name of current collation */ PERLVARI(Icollation_standard, bool, TRUE) /* Assume simple collation */ @@ -405,7 +405,7 @@ PERLVAR(Iyychar, int) PERLVAR(Iyyval, YYSTYPE) PERLVAR(Iyylval, YYSTYPE) -PERLVAR(Iglob_index, int) +PERLVARI(Iglob_index, int, 0) PERLVAR(Isrand_called, bool) PERLVARA(Iuudmap,256, char) PERLVAR(Ibitcount, char *) @@ -464,7 +464,7 @@ PERLVAR(Ireentrant_buffer, REENTR*) /* here we store the _r buffers */ #endif -PERLVAR(Isavebegin, bool) /* save BEGINs for compiler */ +PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */ PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */ PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */ |