diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2005-11-24 02:57:34 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-23 15:34:54 +0000 |
| commit | 4a818d86735b88cd762faade9872a9c2e89ab057 (patch) | |
| tree | b48aa406fa47b65737b3da2fcc50fe068f4fe679 /utf8.c | |
| parent | b9ff9ac175df263d69b7bed8aefc4f20969baf73 (diff) | |
| download | perl-4a818d86735b88cd762faade9872a9c2e89ab057.tar.gz | |
XS-assisted SWASHGET (esp. for t/uni/class.t speedup)
Message-Id: <20051123175603.FFD5.BQW10602@nifty.com>
And :
Message-Id: <20051123202935.4D9D.BQW10602@nifty.com>
with some nits to use U8 instead of char more consistently
p4raw-id: //depot/perl@26199
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1696,8 +1696,8 @@ Perl_swash_fetch(pTHX_ SV *sv, const U8 *ptr, bool do_utf8) SV *errsv_save; ENTER; SAVETMPS; - save_re_context(); - PUSHSTACKi(PERLSI_MAGIC); + /* save_re_context(); */ + /* PUSHSTACKi(PERLSI_MAGIC); */ PUSHMARK(SP); EXTEND(SP,3); PUSHs((SV*)sv); @@ -1714,7 +1714,7 @@ Perl_swash_fetch(pTHX_ SV *sv, const U8 *ptr, bool do_utf8) if (!SvTRUE(ERRSV)) sv_setsv(ERRSV, errsv_save); SvREFCNT_dec(errsv_save); - POPSTACK; + /* POPSTACK; */ FREETMPS; LEAVE; if (IN_PERL_COMPILETIME) |