In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/6b99f28a36db89d4a6baa5b8598d15bfe4b998cb?hp=af048c18889d4232ba48aa87bdd20a2320723b43>
- Log ----------------------------------------------------------------- commit 6b99f28a36db89d4a6baa5b8598d15bfe4b998cb Author: Jan Dubois <[email protected]> Date: Fri Jul 3 17:56:11 2009 -0700 The 2nd arg to save_alloc() must be cast to I32 to avoid pointer truncation warnings on 64-bit platforms. ----------------------------------------------------------------------- Summary of changes: scope.h | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) 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<ENTER> and L<perlcall>. #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)) -- Perl5 Master Repository
