In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/2f145a2d09c96f4005a7cd54f706cc76a1fecbbb?hp=230d26840df92e780afadd760cbbda2a1c900a04>
- Log ----------------------------------------------------------------- commit 2f145a2d09c96f4005a7cd54f706cc76a1fecbbb Author: Daniel Dragan <bul...@hotmail.com> Date: Thu Apr 12 14:53:09 2018 -0400 fix SEGV in XS::APItest::Backrefs::Comctl32Version() really old Mingw GCCs (3.4.5 specifically) dont implement _alloca correctly, switch to a simpler variation a follow on to perl #133084 and see also problems I had with alloca on very old GCCs in https://rt.cpan.org/Public/Bug/Display.html?id=80217 ----------------------------------------------------------------------- Summary of changes: ext/XS-APItest/APItest.pm | 2 +- ext/XS-APItest/APItest.xs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ext/XS-APItest/APItest.pm b/ext/XS-APItest/APItest.pm index 8eda0f7a02..b98ccf848b 100644 --- a/ext/XS-APItest/APItest.pm +++ b/ext/XS-APItest/APItest.pm @@ -5,7 +5,7 @@ use strict; use warnings; use Carp; -our $VERSION = '0.96'; +our $VERSION = '0.97'; require XSLoader; diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 1fead70ee9..15b95eb211 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -6784,7 +6784,7 @@ Comctl32Version() croak("Comctl32Version: comctl32.dll no version???"); ver = LoadResource(dll, hrsc); len = SizeofResource(dll, hrsc); - vercopy = _alloca(len); + vercopy = (void *)sv_grow(sv_newmortal(),len); memcpy(vercopy, ver, len); if (VerQueryValue(vercopy, "\\", (void**)&info, &len)) { int dwValueMS1 = (info->dwFileVersionMS>>16); -- Perl5 Master Repository