X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=thrdvar.h;h=e12e85f31718445243202d3b0adae7e80dc22910;hb=0ad39044976812f3d7577556791797d57eb65d61;hp=6d5471fa2de538a4140c4a4651a813662e9af077;hpb=7be51a492103f5312d8e2c90a7d13d18dab93c61;p=p5sagit%2Fp5-mst-13.2.git diff --git a/thrdvar.h b/thrdvar.h index 6d5471f..e12e85f 100644 --- a/thrdvar.h +++ b/thrdvar.h @@ -1,6 +1,6 @@ /* thdrvar.h * - * Copyright (C) 1999, 2000, 2001, 2002, by Larry Wall and others + * Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005 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. @@ -108,7 +108,7 @@ PERLVAR(Trs, SV *) /* input record separator $/ */ PERLVAR(Tlast_in_gv, GV *) /* GV used in last */ PERLVAR(Tofs_sv, SV *) /* output field separator $, */ PERLVAR(Tdefoutgv, GV *) /* default FH for output */ -PERLVARI(Tchopset, char *, " \n-") /* $: */ +PERLVARI(Tchopset, const char *, " \n-") /* $: */ PERLVAR(Tformtarget, SV *) PERLVAR(Tbodytarget, SV *) PERLVAR(Ttoptarget, SV *) @@ -130,9 +130,6 @@ PERLVAR(Tmainstack, AV *) /* the stack when nothing funny is happening */ PERLVAR(Ttop_env, JMPENV *) /* ptr. to current sigjmp() environment */ PERLVAR(Tstart_env, JMPENV) /* empty startup sigjmp() environment */ -#ifdef PERL_FLEXIBLE_EXCEPTIONS -PERLVARI(Tprotect, protect_proc_t, MEMBER_TO_FPTR(Perl_default_protect)) -#endif PERLVARI(Terrors, SV *, Nullsv) /* outstanding queued errors */ /* statics "owned" by various functions */ @@ -150,7 +147,6 @@ PERLVAR(Tsortcop, OP *) /* user defined sort routine */ PERLVAR(Tsortstash, HV *) /* which is in some package or other */ PERLVAR(Tfirstgv, GV *) /* $a */ PERLVAR(Tsecondgv, GV *) /* $b */ -PERLVAR(Tsortcxix, I32) /* from pp_ctl.c */ /* float buffer */ PERLVAR(Tefloatbuf, char*) @@ -216,8 +212,7 @@ PERLVARI(Tregint_string,re_intuit_string_t, MEMBER_TO_FPTR(Perl_re_intuit_string PERLVARI(Tregfree, regfree_t, MEMBER_TO_FPTR(Perl_pregfree)) /* Pointer to REx free()er */ -PERLVARI(Treginterp_cnt,int, 0) /* Whether `Regexp' - was interpolated. */ +PERLVARI(Treginterp_cnt,int, 0) /* Whether "Regexp" was interpolated. */ PERLVARI(Treg_starttry, char *, 0) /* -Dr: where regtry was called. */ PERLVARI(Twatchaddr, char **, 0) PERLVAR(Twatchok, char *)