Silence a couple of Borland compiler warnings

p4raw-id: //depot/perl@28643

diff --git a/cop.h b/cop.h
index 83f1f04..bfaea57 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 *);