X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doop.c;h=1ad8bfab9ad774a5d2c7531136088633b073df88;hb=140554665c10264faba3f60819106d3921665365;hp=3e40d92d4f558a22ad43fe651224ed85aa219d49;hpb=c5a0f51aeadf6b8a7ed259c017c10b71dbc08619;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doop.c b/doop.c
index 3e40d92..1ad8bfa 100644
--- a/doop.c
+++ b/doop.c
@@ -737,7 +737,7 @@ Perl_do_vecget(pTHX_ SV *sv, I32 offset, I32 size)
 			((UV) s[offset + 1] << 16) +
 			(     s[offset + 2] <<  8);
 	    }
-#ifdef HAS_QUAD
+#ifdef UV_IS_QUAD
 	    else if (size == 64) {
 		dTHR;
 		if (ckWARN(WARN_PORTABLE))
@@ -807,7 +807,7 @@ Perl_do_vecget(pTHX_ SV *sv, I32 offset, I32 size)
 		((UV) s[offset + 1] << 16) +
 		(     s[offset + 2] <<  8) +
 		      s[offset + 3];
-#ifdef HAS_QUAD
+#ifdef UV_IS_QUAD
 	else if (size == 64) {
 	    dTHR;
 	    if (ckWARN(WARN_PORTABLE))
@@ -880,7 +880,7 @@ Perl_do_vecset(pTHX_ SV *sv)
 	    s[offset+2] = (lval >>  8) & 0xff;
 	    s[offset+3] =  lval        & 0xff;
 	}
-#ifdef HAS_QUAD
+#ifdef UV_IS_QUAD
 	else if (size == 64) {
 	    dTHR;
 	    if (ckWARN(WARN_PORTABLE))
@@ -895,6 +895,7 @@ Perl_do_vecset(pTHX_ SV *sv)
 	    s[offset+6] = (lval >>  8) & 0xff;
 	    s[offset+7] =  lval        & 0xff;
 	}
+#endif
     }
     SvSETMAGIC(targ);
 }