In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/13203cefecd569a75ed961c9e4d3bf203d241f08?hp=5b306eef3a433a3b83e47635168aa11235246bae>
- Log ----------------------------------------------------------------- commit 13203cefecd569a75ed961c9e4d3bf203d241f08 Author: Father Chrysostomos <[email protected]> Date: Sun Sep 28 12:42:19 2014 -0700 perldelta: Move an entry to the right section 5b306eef3 added it to the wrong section because the patch did not apply cleanly with git-am and the âpatchâ program seemed to have no trouble with it, and I applied it without double-checking what patch had done. Trouble with pod documents is that so many parts of them look the same that things always apply, if wrongly. :-) M pod/perldelta.pod commit cd1dc8e2c73be346de250a16f103fb9a97814dd3 Author: Father Chrysostomos <[email protected]> Date: Sun Sep 28 12:39:28 2014 -0700 sv.c: Suppress compiler warning Cast to U32 explicitly now that arena_size is U32. See <https://rt.perl.org/Ticket/Display.html?id=122861#txn-1310985>. M sv.c ----------------------------------------------------------------------- Summary of changes: pod/perldelta.pod | 12 ++++-------- sv.c | 4 ++-- 2 files changed, 6 insertions(+), 10 deletions(-) diff --git a/pod/perldelta.pod b/pod/perldelta.pod index a420c09..1fce287 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -347,7 +347,10 @@ well. =item * -XXX +SVs of type SVt_NV are now bodyless when a build configure and platform allow +it, specifically C<sizeof(NV) <= sizeof(IV)>. The bodyless trick is the same one +as for IVs since 5.9.2, but for NVs, unlike IVs, is not guarenteed on all +platforms and build configurations. =back @@ -391,13 +394,6 @@ XXX XXX Add anything here that we forgot to add, or were mistaken about, in the perldelta of a previous release. -=item * - -SVs of type SVt_NV are now bodyless when a build configure and platform allow -it, specifically C<sizeof(NV) <= sizeof(IV)>. The bodyless trick is the same one -as for IVs since 5.9.2, but for NVs, unlike IVs, is not guarenteed on all -platforms and build configurations. - =back =head1 Obituary diff --git a/sv.c b/sv.c index bb9704f..49bf8a0 100644 --- a/sv.c +++ b/sv.c @@ -919,9 +919,9 @@ struct body_details { ? count * body_size \ : FIT_ARENA0 (body_size) #define FIT_ARENA(count,body_size) \ - count \ + (U32)(count \ ? FIT_ARENAn (count, body_size) \ - : FIT_ARENA0 (body_size) + : FIT_ARENA0 (body_size)) /* Calculate the length to copy. Specifically work out the length less any final padding the compiler needed to add. See the comment in sv_upgrade -- Perl5 Master Repository
