diff options
| author | Jan Dubois <jand@activestate.com> | 2009-07-03 17:56:11 -0700 |
|---|---|---|
| committer | Jan Dubois <jand@activestate.com> | 2009-07-03 17:56:11 -0700 |
| commit | 6b99f28a36db89d4a6baa5b8598d15bfe4b998cb (patch) | |
| tree | 9d69439c73f37e4fea183ff7b4d0e7910a5b3412 /scope.h | |
| parent | af048c18889d4232ba48aa87bdd20a2320723b43 (diff) | |
| download | perl-6b99f28a36db89d4a6baa5b8598d15bfe4b998cb.tar.gz | |
The 2nd arg to save_alloc() must be cast to I32 to avoid pointer truncation warnings on 64-bit platforms.
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)) |