This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 478d54a) | patch
Perl_runops_debug(): do FREETMPS
authorDavid Mitchell <davem@iabyn.com>
Mon, 16 Nov 2015 14:40:04 +0000 (14:40 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 09:18:33 +0000 (09:18 +0000)
commit991bab54b4e8079e992d43fe5a07d8f38ed940a3
tree9962e51c7ff53c8d73d7280c5239293c9f0e76eetree | snapshot
parent478d54a93863b3a11f93df5a66c57dfdffc49d13commit | diff
Perl_runops_debug(): do FREETMPS

In runops_debug() wrap the optional printing of next op, arg stack
etc with ENTER/SAVETMPS, FREETMPS/LEAVE - so that temporaries created by
the dump output are promptly freed, and thus don't alter the tmps stack.

(I'm trying to debug some tmps stack corruption, and running with -Dst
made the problem go away).
dump.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.