From: Steve Hay <SteveHay@planit.com>
Date: Tue, 1 Aug 2006 16:17:47 +0000 (+0000)
Subject: Silence a couple of Borland compiler warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b69b0499811c52eed331c158803ef26f768e2668;p=p5sagit%2Fp5-mst-13.2.git

Silence a couple of Borland compiler warnings

p4raw-id: //depot/perl@28643
---

diff --git a/cop.h b/cop.h
index 83f1f04..bfaea57 100644
--- a/cop.h
+++ b/cop.h
@@ -576,7 +576,7 @@ struct subst {
 	cx->sb_rx		= rx,					\
 	cx->cx_type		= CXt_SUBST;				\
 	rxres_save(&cx->sb_rxres, rx);					\
-	ReREFCNT_inc(rx)
+	(void)ReREFCNT_inc(rx)
 
 #define POPSUBST(cx) cx = &cxstack[cxstack_ix--];			\
 	rxres_free(&cx->sb_rxres);					\
diff --git a/regexec.c b/regexec.c
index a0ea7f2..ac55c82 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2383,7 +2383,7 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog)
 
     /* these variables are NOT saved during a recusive RFEGMATCH: */
     register I32 nextchr;   /* is always set to UCHARAT(locinput) */
-    bool result;	    /* return value of S_regmatch */
+    bool result = 0;	    /* return value of S_regmatch */
     int depth = 0;	    /* depth of recursion */
     regmatch_state *yes_state = NULL; /* state to pop to on success of
 							    subpattern */
diff --git a/win32/win32.h b/win32/win32.h
index ad68699..893a66b 100644
--- a/win32/win32.h
+++ b/win32/win32.h
@@ -325,7 +325,7 @@ typedef struct {
 } child_IO_table;
 
 DllExport void		win32_get_child_IO(child_IO_table* ptr);
-DllExport HWND		win32_create_message_window();
+DllExport HWND		win32_create_message_window(void);
 
 #ifndef USE_SOCKETS_AS_HANDLES
 extern FILE *		my_fdopen(int, char *);