diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2005-11-25 09:19:35 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-24 16:09:48 +0000 |
| commit | 8fe4d5b293de0584fca8742f7dcccba7ce3e3a9d (patch) | |
| tree | a1166a077ce0c1f6173fdad7ed340e1848cd81d4 /universal.c | |
| parent | faceb03c4aa634b15ae4628ae2c45c11734e2fd7 (diff) | |
| download | perl-8fe4d5b293de0584fca8742f7dcccba7ce3e3a9d.tar.gz | |
Re: XS-assisted SWASHGET (esp. for t/uni/class.t speedup)
Date: Fri, 25 Nov 2005 00:19:35 +0900
Message-Id: <20051125001031.24E3.BQW10602@nifty.com>
Date: Fri, 25 Nov 2005 01:18:17 +0900
Message-Id: <20051125011410.24E9.BQW10602@nifty.com>
p4raw-id: //depot/perl@26203
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/universal.c b/universal.c index 4d44aa7577..b3a742b384 100644 --- a/universal.c +++ b/universal.c @@ -989,7 +989,7 @@ XS(XS_utf8_SWASHGET_heavy) bitssvp = hv_fetch(hv, "BITS", 4, FALSE); nonesvp = hv_fetch(hv, "NONE", 4, FALSE); extssvp = hv_fetch(hv, "EXTRAS", 6, FALSE); - typestr = SvPV_nolen(*typesvp); + typestr = (U8*)SvPV_nolen(*typesvp); typeto = typestr[0] == 'T' && typestr[1] == 'o'; bits = (U32)SvUV(*bitssvp); none = (U32)SvUV(*nonesvp); @@ -1048,7 +1048,7 @@ XS(XS_utf8_SWASHGET_heavy) nextline = (U8*)memchr(l, '\n', lend - l); numlen = lend - l; - min = (U32)grok_hex(l, &numlen, &flags, NULL); + min = (U32)grok_hex((char *)l, &numlen, &flags, NULL); if (numlen) l += numlen; else if (nextline) { @@ -1064,7 +1064,7 @@ XS(XS_utf8_SWASHGET_heavy) ++l; flags = PERL_SCAN_SILENT_ILLDIGIT | PERL_SCAN_DISALLOW_PREFIX; numlen = lend - l; - max = (U32)grok_hex(l, &numlen, &flags, NULL); + max = (U32)grok_hex((char *)l, &numlen, &flags, NULL); if (numlen) l += numlen; else @@ -1076,7 +1076,7 @@ XS(XS_utf8_SWASHGET_heavy) flags = PERL_SCAN_SILENT_ILLDIGIT | PERL_SCAN_DISALLOW_PREFIX; numlen = lend - l; - val = (U32)grok_hex(l, &numlen, &flags, NULL); + val = (U32)grok_hex((char *)l, &numlen, &flags, NULL); if (numlen) l += numlen; else @@ -1219,7 +1219,7 @@ XS(XS_utf8_SWASHGET_heavy) HV* otherhv; SV **otherbitssvp; - othersvp = hv_fetch(hv, namestr, namelen, FALSE); + othersvp = hv_fetch(hv, (char *)namestr, namelen, FALSE); if (*othersvp && SvROK(*othersvp) && SvTYPE(SvRV(*othersvp))==SVt_PVHV) otherhv = (HV*)SvRV(*othersvp); @@ -1250,7 +1250,7 @@ XS(XS_utf8_SWASHGET_heavy) if (!olen) Perl_croak(aTHX_ "SWASHGET didn't return valid swatch"); - s = SvPV(swatch, slen); + s = (U8*)SvPV(swatch, slen); if (bits == 1 && otherbits == 1) { if (slen != olen) Perl_croak(aTHX_ "SWASHGET length mismatch"); |