summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSteve Hay <SteveHay@planit.com>2006-08-01 16:17:47 +0000
committerSteve Hay <SteveHay@planit.com>2006-08-01 16:17:47 +0000
commitb69b0499811c52eed331c158803ef26f768e2668 (patch)
tree55f82297022f18e072cdf2fbd5070bf76abb40a5
parentd4315dd6a064c0701c6a2be9857472687268433f (diff)
downloadperl-b69b0499811c52eed331c158803ef26f768e2668.tar.gz
Silence a couple of Borland compiler warnings
p4raw-id: //depot/perl@28643
-rw-r--r--cop.h2
-rw-r--r--regexec.c2
-rw-r--r--win32/win32.h2
3 files changed, 3 insertions, 3 deletions
diff --git a/cop.h b/cop.h
index 83f1f04bd2..bfaea578e2 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 a0ea7f2c0d..ac55c82470 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 ad68699a10..893a66b540 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 *);