Change 18564 by jhi@kosh on 2003/01/22 18:07:19
Use the aTHX_-less form (cousin of change #18544).
Affected files ...
... //depot/maint-5.8/perl/sv.c#20 edit
Differences ...
==== //depot/maint-5.8/perl/sv.c#20 (text) ====
Index: perl/sv.c
--- perl/sv.c#19~18503~ Thu Jan 16 15:29:57 2003
+++ perl/sv.c Wed Jan 22 10:07:19 2003
@@ -5480,21 +5480,21 @@
MAGIC *mg = 0;
bool found = FALSE;
- if (S_utf8_mg_pos(aTHX_ sv, &mg, &cache, 0, offsetp, *offsetp, &s, start,
send))
+ if (utf8_mg_pos(sv, &mg, &cache, 0, offsetp, *offsetp, &s, start, send))
found = TRUE;
if (!found && uoffset > 0) {
while (s < send && uoffset--)
s += UTF8SKIP(s);
if (s >= send)
s = send;
- if (S_utf8_mg_pos_init(aTHX_ sv, &mg, &cache, 0, offsetp, s, start))
+ if (utf8_mg_pos_init(sv, &mg, &cache, 0, offsetp, s, start))
boffset = cache[1];
*offsetp = s - start;
}
if (lenp) {
found = FALSE;
start = s;
- if (S_utf8_mg_pos(aTHX_ sv, &mg, &cache, 2, lenp, *lenp + *offsetp, &s,
start, send)) {
+ if (utf8_mg_pos(sv, &mg, &cache, 2, lenp, *lenp + *offsetp, &s, start,
+send)) {
*lenp -= boffset;
found = TRUE;
}
@@ -5505,7 +5505,7 @@
s += UTF8SKIP(s);
if (s >= send)
s = send;
- if (S_utf8_mg_pos_init(aTHX_ sv, &mg, &cache, 2, lenp, s, start))
+ if (utf8_mg_pos_init(sv, &mg, &cache, 2, lenp, s, start))
cache[2] += *offsetp;
}
*lenp = s - start;
End of Patch.
