X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.h;h=b58d235711e505c4183318a611a71044d262b91e;hb=e42df61ffa4b532a113a57b2965d347ce4da44b3;hp=b5fa71b4ef7b12069a4d207ae340fad57f707be4;hpb=603aa20df51288786331f1d6680081156c2ce5a9;p=p5sagit%2Fp5-mst-13.2.git diff --git a/gv.h b/gv.h index b5fa71b..b58d235 100644 --- a/gv.h +++ b/gv.h @@ -1,7 +1,7 @@ /* gv.h * - * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, - * 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, by Larry Wall and others + * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, + * 2001, 2002, 2003, 2004, 2005, 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. @@ -88,7 +88,7 @@ Return the SV from the GV. #endif #define GvREFCNT(gv) (GvGP(gv)->gp_refcnt) -#define GvIO(gv) ((gv) && SvTYPE((SV*)gv) == SVt_PVGV && GvGP(gv) ? GvIOp(gv) : NULL) +#define GvIO(gv) ((gv) && SvTYPE((const SV*)gv) == SVt_PVGV && GvGP(gv) ? GvIOp(gv) : NULL) #define GvIOp(gv) (GvGP(gv)->gp_io) #define GvIOn(gv) (GvIO(gv) ? GvIOp(gv) : GvIOp(gv_IOadd(gv))) @@ -166,16 +166,6 @@ Return the SV from the GV. #define GvIN_PAD_on(gv) (GvFLAGS(gv) |= GVf_IN_PAD) #define GvIN_PAD_off(gv) (GvFLAGS(gv) &= ~GVf_IN_PAD) -#define GvUNIQUE(gv) 0 -#define GvUNIQUE_on(gv) NOOP -#define GvUNIQUE_off(gv) NOOP - -#ifdef USE_ITHREADS -#define GV_UNIQUE_CHECK -#else -#undef GV_UNIQUE_CHECK -#endif - #ifndef PERL_CORE # define Nullgv Null(GV*) #endif