diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-05-02 12:41:43 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-05-02 12:41:43 +0000 |
commit | f4890806d306bfeee79f1864c882eb307b4f54fd (patch) | |
tree | cca03a58610968601b3ada5869d34e24939210d8 /bytecode.pl | |
parent | 178eff928e12522422417310bee9331fccc184cf (diff) | |
download | perl-f4890806d306bfeee79f1864c882eb307b4f54fd.tar.gz |
GvFILE() cannot be a pointer to the memory owned by the COP, because
COPs created by use can be freed along this memory, but the GP
remains. Given that several GVs may refer to the same file, use a
shared string rather than an individual allocation per GP.
p4raw-id: //depot/perl@28060
Diffstat (limited to 'bytecode.pl')
-rw-r--r-- | bytecode.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bytecode.pl b/bytecode.pl index 4da765a86f..06269e4edb 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -448,7 +448,7 @@ gp_refcnt_add GvREFCNT(bstate->bs_sv) I32 x gp_av *(SV**)&GvAV(bstate->bs_sv) svindex gp_hv *(SV**)&GvHV(bstate->bs_sv) svindex gp_cv *(SV**)&GvCV(bstate->bs_sv) svindex -gp_file GvFILE(bstate->bs_sv) pvindex +gp_file bstate->bs_sv pvindex x gp_io *(SV**)&GvIOp(bstate->bs_sv) svindex gp_form *(SV**)&GvFORM(bstate->bs_sv) svindex gp_cvgen GvCVGEN(bstate->bs_sv) U32 |