From: Jan Dubois Date: Sat, 4 Jul 2009 00:56:11 +0000 (-0700) Subject: The 2nd arg to save_alloc() must be cast to I32 to avoid pointer truncation warnings... X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b99f28a36db89d4a6baa5b8598d15bfe4b998cb;p=p5sagit%2Fp5-mst-13.2.git The 2nd arg to save_alloc() must be cast to I32 to avoid pointer truncation warnings on 64-bit platforms. --- diff --git a/scope.h b/scope.h index 97e0d7a..2b57fc6 100644 --- a/scope.h +++ b/scope.h @@ -218,7 +218,7 @@ Closing bracket on a callback. See C and L. #define SSNEW(size) Perl_save_alloc(aTHX_ (size), 0) #define SSNEWt(n,t) SSNEW((n)*sizeof(t)) #define SSNEWa(size,align) Perl_save_alloc(aTHX_ (size), \ - (align - ((int)((caddr_t)&PL_savestack[PL_savestack_ix]) % align)) % align) + (I32)(align - ((size_t)((caddr_t)&PL_savestack[PL_savestack_ix]) % align)) % align) #define SSNEWat(n,t,align) SSNEWa((n)*sizeof(t), align) #define SSPTR(off,type) ((type) ((char*)PL_savestack + off))