diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-03 21:54:46 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-03 21:54:46 +0000 |
| commit | 1c846c1f6d96d2ca4dfccdcfc0ff050c1474993e (patch) | |
| tree | 052cab67c23c5f42f2f3fbf0d595e76961d271d2 /objXSUB.h | |
| parent | 6570e624857a0fc90e8fa87d3479a32bd7482703 (diff) | |
| download | perl-1c846c1f6d96d2ca4dfccdcfc0ff050c1474993e.tar.gz | |
Hash lookup of constant strings optimization:
Introduce SvREADONLY && SvFAKE to flag an SV which has SvPVX pointing
to string table (as per sharepvn). Add newSV_pvn_share to create such
a thing. Make hv.c compare addresses of strings and skip string compare
if equal. Make method_named and helem ops use these shared-string SVs
when arg is constant. Make keys op return shared-string SVs (less clearly
a win).
p4raw-id: //depot/perl@7016
Diffstat (limited to 'objXSUB.h')
| -rw-r--r-- | objXSUB.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1,4 +1,4 @@ -/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h, perlvars.h and thrdvar.h. Any changes made here will be lost! */ @@ -1101,6 +1101,10 @@ #define Perl_newSVpvn pPerl->Perl_newSVpvn #undef newSVpvn #define newSVpvn Perl_newSVpvn +#undef Perl_newSVpvn_share +#define Perl_newSVpvn_share pPerl->Perl_newSVpvn_share +#undef newSVpvn_share +#define newSVpvn_share Perl_newSVpvn_share #undef Perl_newSVpvf #define Perl_newSVpvf pPerl->Perl_newSVpvf #undef newSVpvf |