summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>1996-08-19 00:46:59 +0000
committerAndy Dougherty <doughera@lafcol.lafayette.edu>1996-08-19 00:46:59 +0000
commita026971d0f28d48a093e5fdd42c475d75eb83b44 (patch)
treef2d48444c3323bf23bcda6300ed549df07ce03bf
parent4521c7914c9458406ab869e3d05e04c7de0567d5 (diff)
downloadperl-a026971d0f28d48a093e5fdd42c475d75eb83b44.tar.gz
Use memcmp instead of bcmp even when we don't care about order.
-rw-r--r--regexec.c4
-rw-r--r--sv.c6
2 files changed, 5 insertions, 5 deletions
diff --git a/regexec.c b/regexec.c
index 4119dfc97a..1ee1436f24 100644
--- a/regexec.c
+++ b/regexec.c
@@ -668,7 +668,7 @@ char *prog;
sayNO;
if (regeol - locinput < ln)
sayNO;
- if (ln > 1 && bcmp(s, locinput, ln) != 0)
+ if (ln > 1 && memcmp(s, locinput, ln) != 0)
sayNO;
locinput += ln;
nextchar = *locinput;
@@ -748,7 +748,7 @@ char *prog;
ln = regendp[n] - s;
if (locinput + ln > regeol)
sayNO;
- if (ln > 1 && bcmp(s, locinput, ln) != 0)
+ if (ln > 1 && memcmp(s, locinput, ln) != 0)
sayNO;
locinput += ln;
nextchar = *locinput;
diff --git a/sv.c b/sv.c
index 9fb9985050..8259b9048b 100644
--- a/sv.c
+++ b/sv.c
@@ -2520,7 +2520,7 @@ register SV *str2;
if (cur1 != cur2)
return 0;
- return !bcmp(pv1, pv2, cur1);
+ return !memcmp(pv1, pv2, cur1);
}
I32
@@ -2707,7 +2707,7 @@ I32 append;
thats_all_folks:
if ((rslen > 1 && (bp - (STDCHAR*)SvPVX(sv) < rslen)) ||
- bcmp((char*)bp - rslen, rsptr, rslen))
+ memcmp((char*)bp - rslen, rsptr, rslen))
goto screamer; /* go back to the fray */
thats_really_all_folks:
if (shortbuffered)
@@ -2742,7 +2742,7 @@ screamer2:
if (i != EOF && /* joy */
(!rslen ||
SvCUR(sv) < rslen ||
- bcmp(SvPVX(sv) + SvCUR(sv) - rslen, rsptr, rslen)))
+ memcmp(SvPVX(sv) + SvCUR(sv) - rslen, rsptr, rslen)))
{
append = -1;
goto screamer2;