summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-12-12 14:33:30 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-12-12 14:33:30 +0000
commitfe5a182ca3b72c3fb16ad25f60746996b5ed4338 (patch)
treed325851c1dadf2a0650ff1e4c5d8049d120ee8e4 /regcomp.c
parent0384a54ad09fb53c8b2effc37683d4352a11f9de (diff)
downloadperl-fe5a182ca3b72c3fb16ad25f60746996b5ed4338.tar.gz
Fixes for casting problems detected on a SuSE 7.2 Itanium,
mostly gcc -Wall complaining about the argument of %p not being a void *. p4raw-id: //depot/perl@13659
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index 40e7916639..a0f32f8c8b 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3187,7 +3187,7 @@ tryagain:
STRLEN newlen = SvCUR(sv);
if (!SIZE_ONLY) {
DEBUG_r(PerlIO_printf(Perl_debug_log, "recode %*s to %*s\n",
- oldlen, STRING(ret), newlen, s));
+ (int)oldlen, STRING(ret), (int)newlen, s));
Copy(s, STRING(ret), newlen, char);
STR_LEN(ret) += newlen - oldlen;
RExC_emit += STR_SZ(newlen) - STR_SZ(oldlen);