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

diff --git a/doop.c b/doop.c
index 1b7d02d..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))