]> git.vpit.fr Git - perl/modules/Lexical-Types.git/commit
projects / perl / modules / Lexical-Types.git / commit
summary | shortlog | log | commit | commitdiff | tree
(parent: 0f014b1)
Set the ppaddr member of padsv ops at peep time
authorVincent Pit <vince@profvince.com>
Sat, 1 Jan 2011 22:21:10 +0000 (23:21 +0100)
committerVincent Pit <vince@profvince.com>
Sat, 1 Jan 2011 22:22:50 +0000 (23:22 +0100)
commitd466b48db5ca65f6f5ce4f86788822bf81047f31
tree2f1d61dc3f867a2e1d92ca9a7a660c20b815955ftree
parent0f014b1bd35a5d46d7dc77599e3e11f1d4cb33bccommit | diff
Set the ppaddr member of padsv ops at peep time

There was a race in the "PL_ppaddr[OP_PADSV] save/restore dance" in that
perl might be compiling ops inside and outside the scope of the pragma at
the same time. We solve this by setting the op_ppaddr member of padsv ops
to a_pp_deref during the peephole optimization phase.
Types.xs diff | blob | history
A Perl pragma to extend the semantics of typed lexicals.