X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=intrpvar.h;h=4fa3c0d9a3bb4053cff3f15eacb1293124e12bbe;hb=286d62c215d35caf69b83afb884cdaa350bd6aa3;hp=5d583f06f05f1c59c8cfc19f0060c2c30e7589a4;hpb=ffee3ff61d01bece17fbf5f9da633f1917fa5c0a;p=p5sagit%2Fp5-mst-13.2.git diff --git a/intrpvar.h b/intrpvar.h index 5d583f0..4fa3c0d 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -1,8 +1,7 @@ /* intrpvar.h * * Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, - * 2006, 2007 - * by Larry Wall and others + * 2006, 2007, 2008 by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -103,16 +102,16 @@ The input record separator - C<$/> in Perl space. The GV which was last used for a filehandle input operation. (C<< >>) -=for apidoc mn|SV*|PL_ofs_sv +=for apidoc mn|GV*|PL_ofsgv -The output field separator - C<$,> in Perl space. +The glob containing the output field separator - C<*,> in Perl space. =cut */ PERLVAR(Irs, SV *) /* input record separator $/ */ PERLVAR(Ilast_in_gv, GV *) /* GV used in last */ -PERLVAR(Iofs_sv, SV *) /* output field separator $, */ +PERLVAR(Iofsgv, GV *) /* GV of output field separator *, */ PERLVAR(Idefoutgv, GV *) /* default FH for output */ PERLVARI(Ichopset, const char *, " \n-") /* $: */ PERLVAR(Iformtarget, SV *) @@ -124,7 +123,7 @@ PERLVAR(Idefstash, HV *) /* main symbol table */ PERLVAR(Icurstash, HV *) /* symbol table for current package */ PERLVAR(Irestartop, OP *) /* propagating an error from croak? */ -PERLVAR(Icurcop, COP * VOL) +PERLVAR(Icurcop, COP *) PERLVAR(Icurstack, AV *) /* THE STACK */ PERLVAR(Icurstackinfo, PERL_SI *) /* current stack + context */ PERLVAR(Imainstack, AV *) /* the stack when nothing funny is @@ -189,12 +188,13 @@ PERLVAR(Ilocalizing, U8) /* are we processing a local() list? */ PERLVAR(Icolorset, bool) /* from regcomp.c */ PERLVARI(Idirty, bool, FALSE) /* in the middle of tearing things down? */ -PERLVAR(Iin_eval, VOL U8) /* trap "fatal" errors? */ +PERLVAR(Iin_eval, U8) /* trap "fatal" errors? */ PERLVAR(Itainted, bool) /* using variables controlled by $< */ /* This value may be set when embedding for full cleanup */ /* 0=none, 1=full, 2=full with checks */ -PERLVARI(Iperl_destruct_level, U8, 0) +/* mod_perl is special, and also assigns a meaning -1 */ +PERLVARI(Iperl_destruct_level, signed char, 0) PERLVAR(Iperldb, U32) @@ -214,14 +214,12 @@ PERLVAR(Ilocalpatches, const char * const *) PERLVARI(Isplitstr, const char *, " ") PERLVAR(Iminus_c, bool) -PERLVAR(Ipreprocess, bool) PERLVAR(Iminus_n, bool) PERLVAR(Iminus_p, bool) PERLVAR(Iminus_l, bool) PERLVAR(Iminus_a, bool) PERLVAR(Iminus_F, bool) PERLVAR(Idoswitches, bool) - PERLVAR(Iminus_E, bool) /* @@ -241,6 +239,7 @@ PERLVAR(Iexit_flags, U8) /* was exit() unexpected, etc. */ PERLVAR(Isrand_called, bool) /* Part of internal state, but makes the 16th 1 byte variable in a row. */ PERLVAR(Itainting, bool) /* doing taint checks */ +/* Space for a U8 */ PERLVAR(Iinplace, char *) PERLVAR(Ie_script, SV *) @@ -347,7 +346,7 @@ PERLVARI(Icurcopdb, COP *, NULL) PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */ 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(IArgv, const char **) /* stuff to free from do_aexec, vfork safe */ PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */ /* Elements in this array have ';' appended and are injected as a single line into the tokeniser. You can't put any (literal) newlines into any program @@ -460,12 +459,14 @@ PERLVAR(Imax_intro_pending, I32) /* end of vars to introduce */ 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(Ihints, U32) /* pragma-tic compile-time flags */ PERLVAR(Idebug, VOL U32) /* flags given to -D switch */ +/* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen" */ +PERLVARI(Ibreakable_sub_gen, U32, 0) + PERLVARI(Iamagic_generation, long, 0) #ifdef USE_LOCALE_COLLATE @@ -525,6 +526,8 @@ PERLVAR(Ilast_swash_klen, U8) /* Only needs to store 0-10 */ PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */ #endif +PERLVAR(Ipad_reset_pending, bool) /* reset pad on next attempted alloc */ + PERLVARI(Iglob_index, int, 0) @@ -560,9 +563,13 @@ PERLVAR(Inumeric_radix_sv, SV *) /* The radix separator if not '.' */ #endif #if defined(USE_ITHREADS) -PERLVAR(Iregex_pad, SV**) /* All regex objects */ -PERLVAR(Iregex_padav, AV*) /* All regex objects */ - +PERLVAR(Iregex_pad, SV**) /* Shortcut into the array of + regex_padav */ +PERLVAR(Iregex_padav, AV*) /* All regex objects, indexed via the + values in op_pmoffset of pmop. + Entry 0 is an SV whose PV is a + "packed" list of IVs listing + the now-free slots in the array */ #endif #ifdef USE_REENTRANT_API @@ -617,8 +624,6 @@ PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook)) PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */ -PERLVAR(IDBassertion, SV *) - PERLVARI(Irehash_seed, UV, 0) /* 582 hash initializer */ PERLVARI(Iisarev, HV*, NULL) /* Reverse map of @ISA dependencies */ @@ -669,6 +674,19 @@ PERLVARI(Islabs, I32**, NULL) /* Array of slabs that have been allocated */ PERLVARI(Islab_count, U32, 0) /* Size of the array */ #endif +/* Can shared object be destroyed */ +PERLVARI(Idestroyhook, destroyable_proc_t, MEMBER_TO_FPTR(Perl_sv_destroyable)) + +#ifdef DEBUG_LEAKING_SCALARS +PERLVARI(Isv_serial, U32, 0) /* SV serial number, used in sv.c */ +#endif + +/* Register of known Method Resolution Orders. + What this actually points to is an implementation detail (it may change to + a structure incorporating a reference count - use mro_get_from_name to + retrieve a C */ +PERLVAR(Iregistered_mros, HV *) + /* If you are adding a U8 or U16, check to see if there are 'Space' comments * above on where there are gaps which currently will be structure padding. */