diff options
| author | Ruslan Zakirov <ruz@bestpractical.com> | 2013-03-25 05:31:35 +0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-30 11:43:41 -0700 |
| commit | a38ab4751f3c0df44dc09e4d685a2637e93c9778 (patch) | |
| tree | 81b350cb112e5aa7f0e659dbffd736e86bf0358a /intrpvar.h | |
| parent | c106c2be8b83eeb3799c9f2127c5030a7a04115a (diff) | |
| download | perl-a38ab4751f3c0df44dc09e4d685a2637e93c9778.tar.gz | |
SV_CONST(name) and PL_sv_consts
SV_CONST(XXX) returns SV* that contains "XXX" string.
SVs are built on demand and stored in interp's structure
for re-use. All SVs have precomputed hash value.
Creates SVs on demand, we don't want 35 SV created during
compile time or cloned during thread creation.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 1d29519583..6a0fd10f33 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -775,6 +775,8 @@ PERLVARI(I, xmlfp, PerlIO *, NULL) PERLVARI(I, sv_serial, U32, 0) /* SV serial number, used in sv.c */ #endif +PERLVARA(I, sv_consts, SV_CONSTS_COUNT, SV*) /* constant SVs with precomputed hash value */ + /* If you are adding a U8 or U16, check to see if there are 'Space' comments * above on where there are gaps which currently will be structure padding. */ |