X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.h;h=87370edcf3a52b58a3dfd38ca647739ed8ca8997;hb=7579600832ee021c8e462ff004f49fb7da5fca41;hp=9034e5984fb1749df639e8dbcf6b1c521df30e52;hpb=cc8382cb63e73f1c3483d327d0b7d0f58659fd51;p=p5sagit%2Fp5-mst-13.2.git diff --git a/gv.h b/gv.h index 9034e59..87370ed 100644 --- a/gv.h +++ b/gv.h @@ -42,9 +42,9 @@ Return the SV from the GV. #define GvSV(gv) (GvGP(gv)->gp_sv) #ifdef PERL_DONT_CREATE_GVSV -#define GvSVn(gv) (GvGP(gv)->gp_sv ? \ - GvGP(gv)->gp_sv : \ - GvGP(gv_SVadd(gv))->gp_sv) +#define GvSVn(gv) (*(GvGP(gv)->gp_sv ? \ + &(GvGP(gv)->gp_sv) : \ + &(GvGP(gv_SVadd(gv))->gp_sv))) #else #define GvSVn(gv) GvSV(gv) #endif @@ -128,8 +128,8 @@ Return the SV from the GV. #define GvIN_PAD_off(gv) (GvFLAGS(gv) &= ~GVf_IN_PAD) #define GvUNIQUE(gv) 0 -#define GvUNIQUE_on(gv) 0 -#define GvUNIQUE_off(gv) 0 +#define GvUNIQUE_on(gv) +#define GvUNIQUE_off(gv) #ifdef USE_ITHREADS #define GV_UNIQUE_CHECK