X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/57c6e6d2d6e8e7d8865d21652c7b582d8731722b..6a28abbc8c08ff5da570415ad3f8a343b51e103d:/intrpvar.h diff --git a/intrpvar.h b/intrpvar.h index d7c4269..6cdf894 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -29,8 +29,8 @@ PERLVAR(Iwarnhook, SV *) /* switches */ PERLVAR(Iminus_c, bool) PERLVAR(Ipatchlevel, SV *) -PERLVAR(Ilocalpatches, char **) -PERLVARI(Isplitstr, char *, " ") +PERLVAR(Ilocalpatches, const char * const *) +PERLVARI(Isplitstr, const char *, " ") PERLVAR(Ipreprocess, bool) PERLVAR(Iminus_n, bool) PERLVAR(Iminus_p, bool) @@ -38,6 +38,7 @@ PERLVAR(Iminus_l, bool) PERLVAR(Iminus_a, bool) PERLVAR(Iminus_F, bool) PERLVAR(Idoswitches, bool) +PERLVAR(Iminus_E, bool) /* =head1 Global Variables @@ -74,6 +75,8 @@ PERLVAR(Istatusvalue, I32) /* $? */ PERLVAR(Iexit_flags, U8) /* was exit() unexpected, etc. */ #ifdef VMS PERLVAR(Istatusvalue_vms,U32) +#else +PERLVAR(Istatusvalue_posix,I32) #endif /* shortcuts to various I/O objects */ @@ -169,7 +172,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) @@ -178,7 +181,6 @@ PERLVAR(Imess_sv, SV *) /* XXX shouldn't these be per-thread? --GSAR */ PERLVAR(Iors_sv, SV *) /* output record separator $\ */ -PERLVAR(Iofmt, char *) /* output format for numbers $# */ /* interpreter atexit processing */ PERLVARI(Iexitlist, PerlExitListEntry *, NULL) @@ -201,8 +203,8 @@ PERLVAR(Imodglobal, HV *) /* per-interp module data */ /* these used to be in global before 5.004_68 */ PERLVARI(Iprofiledata, U32 *, NULL) /* table of ops, counts */ -PERLVARI(Irsfp, PerlIO * VOL, Nullfp) /* current source file pointer */ -PERLVARI(Irsfp_filters, AV *, Nullav) /* keeps active source filters */ +PERLVARI(Irsfp, PerlIO * VOL, NULL) /* current source file pointer */ +PERLVARI(Irsfp_filters, AV *, NULL) /* keeps active source filters */ PERLVAR(Icompiling, COP) /* compiling/done executing marker */ @@ -233,35 +235,21 @@ 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(Ievalseq, U32, 0) /* eval sequence number */ PERLVAR(Iorigenviron, char **) PERLVAR(Iorigalen, U32) +#ifdef PERL_USES_PL_PIDSTATUS PERLVAR(Ipidstatus, HV *) /* pid-to-status mappings for waitpid */ +#endif PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */ PERLVAR(Iosname, char *) /* operating system */ -/* For binary compatibility with older versions only */ -PERLVARI(Ish_path_compat, char *, SH_PATH)/* full path of shell */ - PERLVAR(Isighandlerp, Sighandler_t) -PERLVAR(Ixiv_arenaroot, XPV*) /* list of allocated xiv areas */ -PERLVAR(Ixiv_root, IV *) /* free xiv list */ -PERLVAR(Ixnv_root, NV *) /* free xnv list */ -PERLVAR(Ixrv_root, XRV *) /* free xrv list */ -PERLVAR(Ixpv_root, XPV *) /* free xpv list */ -PERLVAR(Ixpviv_root, XPVIV *) /* free xpviv list */ -PERLVAR(Ixpvnv_root, XPVNV *) /* free xpvnv list */ -PERLVAR(Ixpvcv_root, XPVCV *) /* free xpvcv list */ -PERLVAR(Ixpvav_root, XPVAV *) /* free xpvav list */ -PERLVAR(Ixpvhv_root, XPVHV *) /* free xpvhv list */ -PERLVAR(Ixpvmg_root, XPVMG *) /* free xpvmg list */ -PERLVAR(Ixpvlv_root, XPVLV *) /* free xpvlv list */ -PERLVAR(Ixpvbm_root, XPVBM *) /* free xpvbm list */ -PERLVAR(Ihe_root, HE *) /* free he list */ +PERLVARA(Ibody_roots, PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */ + PERLVAR(Inice_chunk, char *) /* a nice chunk of memory to reuse */ PERLVAR(Inice_chunk_size, U32) /* how nice the chunk of memory is */ @@ -289,8 +277,8 @@ PERLVAR(Isv_no, SV) PERLVAR(Isv_yes, SV) #ifdef CSH -PERLVARI(Icshname, char *, CSH) -PERLVAR(Icshlen, I32) +PERLVARI(Icshname, const char *, CSH) +PERLVARI(Icshlen, I32, 0) #endif PERLVAR(Ilex_state, U32) /* next token is determined */ @@ -310,9 +298,14 @@ PERLVAR(Ilex_brackstack,char *) /* what kind of brackets to pop */ PERLVAR(Ilex_casestack, char *) /* what kind of case mods in effect */ /* What we know when we're in LEX_KNOWNEXT state. */ +#ifdef PERL_MAD +PERLVARA(Inexttoke,5, NEXTTOKE) /* value of next token, if any */ +PERLVAR(Ilasttoke, I32) +#else PERLVARA(Inextval,5, YYSTYPE) /* value of next token, if any */ PERLVARA(Inexttype,5, I32) /* type of next token */ PERLVAR(Inexttoke, I32) +#endif PERLVAR(Ilinestr, SV *) PERLVAR(Ibufptr, char *) @@ -342,17 +335,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 */ @@ -398,14 +391,10 @@ PERLVAR(Ilast_swash_tmps, U8 *) PERLVAR(Ilast_swash_slen, STRLEN) /* perly.c globals */ -PERLVAR(Iyydebug, int) -PERLVAR(Iyynerrs, int) -PERLVAR(Iyyerrflag, int) -PERLVAR(Iyychar, int) -PERLVAR(Iyyval, YYSTYPE) -PERLVAR(Iyylval, YYSTYPE) - -PERLVAR(Iglob_index, int) +PERLVAR(Iyycharp, int *) +PERLVAR(Iyylvalp, YYSTYPE *) + +PERLVARI(Iglob_index, int, 0) PERLVAR(Isrand_called, bool) PERLVARA(Iuudmap,256, char) PERLVAR(Ibitcount, char *) @@ -428,20 +417,9 @@ PERLVAR(IProc, struct IPerlProc*) #if defined(USE_ITHREADS) PERLVAR(Iptr_table, PTR_TBL_t*) #endif -PERLVARI(Ibeginav_save, AV*, Nullav) /* save BEGIN{}s when compiling */ - -PERLVAR(Ixnv_arenaroot, XPV*) /* list of allocated xnv areas */ -PERLVAR(Ixrv_arenaroot, XPV*) /* list of allocated xrv areas */ -PERLVAR(Ixpv_arenaroot, XPV*) /* list of allocated xpv areas */ -PERLVAR(Ixpviv_arenaroot,XPVIV*) /* list of allocated xpviv areas */ -PERLVAR(Ixpvnv_arenaroot,XPVNV*) /* list of allocated xpvnv areas */ -PERLVAR(Ixpvcv_arenaroot,XPVCV*) /* list of allocated xpvcv areas */ -PERLVAR(Ixpvav_arenaroot,XPVAV*) /* list of allocated xpvav areas */ -PERLVAR(Ixpvhv_arenaroot,XPVHV*) /* list of allocated xpvhv areas */ -PERLVAR(Ixpvmg_arenaroot,XPVMG*) /* list of allocated xpvmg areas */ -PERLVAR(Ixpvlv_arenaroot,XPVLV*) /* list of allocated xpvlv areas */ -PERLVAR(Ixpvbm_arenaroot,XPVBM*) /* list of allocated xpvbm areas */ -PERLVAR(Ihe_arenaroot, XPV*) /* list of allocated he areas */ +PERLVARI(Ibeginav_save, AV*, NULL) /* save BEGIN{}s when compiling */ + +PERLVAR(Ibody_arenas, void*) /* pointer to list of body-arenas */ /* 5.6.0 stopped here */ @@ -458,13 +436,19 @@ PERLVAR(Inumeric_radix_sv, SV *) /* The radix separator if not '.' */ PERLVAR(Iregex_pad, SV**) /* All regex objects */ PERLVAR(Iregex_padav, AV*) /* All regex objects */ +#endif + #ifdef USE_REENTRANT_API PERLVAR(Ireentrant_buffer, REENTR*) /* here we store the _r buffers */ #endif -#endif +PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */ -PERLVAR(Isavebegin, bool) /* save BEGINs for compiler */ +#ifdef PERL_MAD +PERLVARI(Imadskills, bool, FALSE) /* preserve all syntactic info */ + /* (MAD = Misc Attribute Decoration) */ +PERLVARI(Ixmlfp, PerlIO *,NULL) +#endif PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */ PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */ @@ -475,7 +459,7 @@ PERLVARI(Iknown_layers, PerlIO_list_t *,NULL) PERLVARI(Idef_layerlist, PerlIO_list_t *,NULL) #endif -PERLVARI(Iencoding, SV*, Nullsv) /* character encoding */ +PERLVARI(Iencoding, SV*, NULL) /* character encoding */ PERLVAR(Idebug_pad, struct perl_debug_pad) /* always needed because of the re extension */ @@ -494,7 +478,7 @@ PERLVAR(Iutf8_idcont, SV *) PERLVAR(Isort_RealCmp, SVCOMPARE_t) -PERLVARI(Icheckav_save, AV*, Nullav) /* save CHECK{}s when compiling */ +PERLVARI(Icheckav_save, AV*, NULL) /* save CHECK{}s when compiling */ PERLVARI(Iclocktick, long, 0) /* this many times() ticks in a second */ @@ -508,12 +492,58 @@ PERLVAR(Istashcache, HV *) /* Cache to speed up S_method_common */ PERLVAR(Ireentrant_retint, int) /* Integer return value from reentrant functions */ +/* Hooks to shared SVs and locks. */ +PERLVARI(Isharehook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing)) +PERLVARI(Ilockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing)) +#ifdef NO_MATHOMS +# define PERL_UNLOCK_HOOK Perl_sv_nosharing +#else +/* This reference ensures that the mathoms are linked with perl */ +# define PERL_UNLOCK_HOOK Perl_sv_nounlocking +#endif +PERLVARI(Iunlockhook, share_proc_t, MEMBER_TO_FPTR(PERL_UNLOCK_HOOK)) + +PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook)) + +/* Force inclusion of both runops options */ +PERLVARI(Irunops_std, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_standard)) +PERLVARI(Irunops_dbg, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_debug)) + +/* Stores the PPID */ +#ifdef THREADS_HAVE_PIDS +PERLVARI(Ippid, IV, 0) +#endif + +PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */ + +PERLVARI(Ihash_seed_set, bool, FALSE) /* Hash initialized? */ + PERLVAR(IDBassertion, SV *) -/* Don't forget to add your variable also to perl_clone()! */ +PERLVARI(Icv_has_eval, I32, 0) /* PL_compcv includes an entereval or similar */ + +PERLVARI(Irehash_seed, UV, 0) /* 582 hash initializer */ + +PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */ + +#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP +/* File descriptor to talk to the child which dumps scalars. */ +PERLVARI(Idumper_fd, int, -1) +#endif + +#ifdef PERL_IMPLICIT_CONTEXT +PERLVARI(Imy_cxt_size, int, 0) /* size of PL_my_cxt_list */ +PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */ +#endif + +#ifdef PERL_TRACK_MEMPOOL +/* For use with the memory debugging code in util.c */ +PERLVAR(Imemory_debug_header, struct perl_memory_debug_header) +#endif /* New variables must be added to the very end, before this comment, * for binary compatibility (the offsets of the old members must not change). + * (Don't forget to add your variable also to perl_clone()!) * XSUB.h provides wrapper functions via perlapi.h that make this - * irrelevant, but not all code may be expected to #include XSUB.h. */ - + * irrelevant, but not all code may be expected to #include XSUB.h. + */