From d6cfa66953103cdf8a46487b72de6c2c2200aa3a Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Fri, 1 Mar 2013 12:54:07 -0600
Subject: 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.
---
 vms/vmsish.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'vms/vmsish.h')

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
-- 
cgit v1.2.1