X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=thrdvar.h;h=5db1a3363f55da70ec24abcfd4fa075797c5382a;hb=0626a780e6ccb4eb0c4c4129aa294a3687905605;hp=18c426ce2e65ad604462ebb788aef584a2bb64d2;hpb=bd61b36601703dd438f87762f0c4d23a6aeb375d;p=p5sagit%2Fp5-mst-13.2.git diff --git a/thrdvar.h b/thrdvar.h index 18c426c..5db1a33 100644 --- a/thrdvar.h +++ b/thrdvar.h @@ -77,7 +77,7 @@ PERLVAR(Tna, STRLEN) /* for use in SvPV when length is PERLVAR(Tstatbuf, Stat_t) PERLVAR(Tstatcache, Stat_t) /* _ */ PERLVAR(Tstatgv, GV *) -PERLVARI(Tstatname, SV *, Nullsv) +PERLVARI(Tstatname, SV *, NULL) #ifdef HAS_TIMES PERLVAR(Ttimesbuf, struct tms) @@ -130,7 +130,7 @@ 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 */ -PERLVARI(Terrors, SV *, Nullsv) /* outstanding queued errors */ +PERLVARI(Terrors, SV *, NULL) /* outstanding queued errors */ /* statics "owned" by various functions */ PERLVAR(Tav_fetch_sv, SV *) /* unused as of change #19268 */ @@ -183,7 +183,6 @@ PERLVAR(Treg_eval_set, I32) /* from regexec.c */ PERLVAR(Tregnarrate, I32) /* from regexec.c */ PERLVAR(Tregprogram, regnode *) /* from regexec.c */ PERLVARI(Tregindent, int, 0) /* from regexec.c */ -PERLVAR(Tregcc, CURCUR *) /* from regexec.c */ PERLVAR(Treg_call_cc, struct re_cc_state *) /* from regexec.c */ PERLVAR(Treg_re, regexp *) /* from regexec.c */ PERLVAR(Treg_ganch, char *) /* position of \G */