In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d28cce60f6f99594ae15d5ad385d305f91867d9e?hp=019090d2000629cc4f2b8a00be3de64eabe348ef>
- Log ----------------------------------------------------------------- commit d28cce60f6f99594ae15d5ad385d305f91867d9e Author: Craig A. Berry <[email protected]> Date: Sun Jan 25 15:22:50 2015 -0600 Dodge warning with STATIC_ASSERT_STMT, VMS C++. This is not a C++11 compiler so it's getting the emulated version of static_assert and it doesn't like it in one case: STATIC_ASSERT_STMT(SVf_FAKE >= 1<<(sizeof(PadnameFLAGS(pn)) * 8)); ........^ %CXX-W-REFNESTFUNVAR, reference to local variable of enclosing function is not allowed at line number 3562 in file D0:[craig.blead.ext.B]b.c;1 While pn is in fact a local variable, it's in an enclosing struct, not an enclosing function. Nevertheless, we don't actually need anything from pn other than the size of one of its members, so we'll just use a NULL pointer of the correct type rather than a real live instance of that type. This is supposedly C89 so shouldn't break anything else. M ext/B/B.pm M ext/B/B.xs commit 0d9debd6d08cb7991a509776061cc9c7618aec64 Author: Craig A. Berry <[email protected]> Date: Sun Jan 25 14:23:06 2015 -0600 Downgrade missing return warning for VMS C++ compiler. Without these we get a ton of warnings that look like: } ^ %CXX-W-MISSINGRETURN, missing return statement at end of non-void function "S_scan_heredoc" at line number 9404 in file D0:[craig.blead]toke.c;1 which get escalated to errors at link time and thus break the build. M vms/vmsish.h ----------------------------------------------------------------------- Summary of changes: ext/B/B.pm | 2 +- ext/B/B.xs | 2 +- vms/vmsish.h | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ext/B/B.pm b/ext/B/B.pm index 5cede48..f028d7c 100644 --- a/ext/B/B.pm +++ b/ext/B/B.pm @@ -15,7 +15,7 @@ require Exporter; # walkoptree comes from B.xs BEGIN { - $B::VERSION = '1.55'; + $B::VERSION = '1.56'; @B::EXPORT_OK = (); # Our BOOT code needs $VERSION set, and will append to @EXPORT_OK. diff --git a/ext/B/B.xs b/ext/B/B.xs index 72a33ae..735e2c5 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -2421,7 +2421,7 @@ PadnameFLAGS(pn) /* backward-compatibility hack, which should be removed if the flags field becomes large enough to hold SVf_FAKE (and PADNAMEt_OUTER should be renumbered to match SVf_FAKE) */ - STATIC_ASSERT_STMT(SVf_FAKE >= 1<<(sizeof(PadnameFLAGS(pn)) * 8)); + STATIC_ASSERT_STMT(SVf_FAKE >= 1<<(sizeof(PadnameFLAGS((B__PADNAME)NULL)) * 8)); if (PadnameOUTER(pn)) RETVAL |= SVf_FAKE; OUTPUT: diff --git a/vms/vmsish.h b/vms/vmsish.h index 7c89094..f430013 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -28,7 +28,7 @@ # pragma message disable (ADDRCONSTEXT,NEEDCONSTEXT) #endif #ifdef __DECCXX -# pragma message informational (INTSIGNCHANGE,CASTQUALTYP,ASSCOMMEA,NOCTOBUTCONREFM) +# pragma message informational (INTSIGNCHANGE,CASTQUALTYP,ASSCOMMEA,NOCTOBUTCONREFM,MISSINGRETURN) #endif /* DEC's C compilers and gcc use incompatible definitions of _to(upp|low)er() */ -- Perl5 Master Repository
