In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/81d2d37741adf789b10635452383ba4d142ef89a?hp=a2656c4ab81b216a427d1e0db6a3aa25b4350ba8>
- Log ----------------------------------------------------------------- commit 81d2d37741adf789b10635452383ba4d142ef89a Author: Craig A. Berry <[email protected]> Date: Fri Mar 1 15:06:47 2013 -0600 Fix signed/unsigned mismatch in vms/vms.c. M vms/vms.c commit d6cfa66953103cdf8a46487b72de6c2c2200aa3a Author: Craig A. Berry <[email protected]> Date: Fri Mar 1 12:54:07 2013 -0600 Add void casts to VMS-specific bail-out macro. The macro used in vms/vms.c for errors from native calls deemed too severe to handle was calling fprintf without checking return values, which caused a huge pile of warnings when compiling with /WARN=ENABLE=LEVEL5. So suppress those warnings with a void cast. M vms/vmsish.h ----------------------------------------------------------------------- Summary of changes: vms/vms.c | 3 ++- vms/vmsish.h | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/vms/vms.c b/vms/vms.c index 95c6309..82b5d16 100644 --- a/vms/vms.c +++ b/vms/vms.c @@ -1817,7 +1817,8 @@ mp_do_kill_file(pTHX_ const char *name, int dirflag) char *vmsname; char *rslt; unsigned long int jpicode = JPI$_UIC, type = ACL$C_FILE; - unsigned long int cxt = 0, aclsts, fndsts, rmsts = -1; + unsigned long int cxt = 0, aclsts, fndsts; + int rmsts = -1; struct dsc$descriptor_s fildsc = {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0}; struct myacedef { unsigned char myace$b_length; diff --git a/vms/vmsish.h b/vms/vmsish.h index 6f2ee13..946bb4e 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -321,8 +321,8 @@ struct interp_intern { #define _ckvmssts_noperl(call) STMT_START { unsigned long int __ckvms_sts; \ if (!((__ckvms_sts=(call))&1)) { \ set_errno(EVMSERR); set_vaxc_errno(__ckvms_sts); \ - fprintf(stderr,"Fatal VMS error (status=%d) at %s, line %d", \ - __ckvms_sts,__FILE__,__LINE__); lib$signal(__ckvms_sts); } } STMT_END + (void)fprintf(stderr,"Fatal VMS error (status=%d) at %s, line %d", \ + __ckvms_sts,__FILE__,__LINE__); (void)lib$signal(__ckvms_sts); } } STMT_END #ifdef VMS_DO_SOCKETS #define PERL_SOCK_SYSREAD_IS_RECV -- Perl5 Master Repository
