diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-07-05 22:51:50 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-05 02:23:28 -0700 |
| commit | c82ecf346a8512f22f25188e450d92938c245421 (patch) | |
| tree | 4a8a85a9655bcb136136674dc3f838204bc9d202 /ext/XS-APItest/APItest.xs | |
| parent | 38be3d0038ef87b22af88f80db1fbeb0292ce53b (diff) | |
| download | perl-c82ecf346a8512f22f25188e450d92938c245421.tar.gz | |
[perl #117855] Store CopFILEGV in a pad under ithreads
This saves having to allocate a separate string buffer for every cop
(control op; every statement has one).
Under non-threaded builds, every cop has a pointer to the GV for that
source file, namely *{"_<filename"}.
Under threaded builds, the name of the GV used to be stored instead.
Now we store an offset into the per-interpreter PL_filegvpad, which
points to the GV.
This makes no significant speed difference, but it reduces mem-
ory usage.
Diffstat (limited to 'ext/XS-APItest/APItest.xs')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 8eaabdb66a..c0e18e5aa0 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -3387,6 +3387,13 @@ CODE: OUTPUT: RETVAL +bool +test_allocfilegv() +CODE: + RETVAL = PL_filegvpad[allocfilegv(PL_defgv)] == PL_defgv; +OUTPUT: + RETVAL + #endif bool |