summaryrefslogtreecommitdiff
path: root/vms/vmsish.h
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2013-03-01 12:54:07 -0600
committerCraig A. Berry <craigberry@mac.com>2013-03-01 12:54:07 -0600
commitd6cfa66953103cdf8a46487b72de6c2c2200aa3a (patch)
treea84a76245ca5c81e0a019e3421050b117ecca0db /vms/vmsish.h
parenta2656c4ab81b216a427d1e0db6a3aa25b4350ba8 (diff)
downloadperl-d6cfa66953103cdf8a46487b72de6c2c2200aa3a.tar.gz
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.
Diffstat (limited to 'vms/vmsish.h')
-rw-r--r--vms/vmsish.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h
index 6f2ee13837..946bb4e638 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