Wed Oct 17 11:48:44 2012: Request 80217 was acted upon.
Transaction: Correspondence added by rur...@x-ray.at
       Queue: Win32-API
     Subject: Re: [rt.cpan.org #80217] Build failure under Cygwin on Windows
   Broken in: 0.72
    Severity: Critical
       Owner: Nobody
  Requestors: jdhed...@cpan.org
      Status: open
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=80217 >


On Wed, Oct 17, 2012 at 9:40 AM, Daniel Dragan via RT
<bug-win32-...@rt.cpan.org> wrote:
> On Wed Oct 17 07:51:29 2012, JDHEDDEN wrote:
>>
>> Progress.  It builds, but segfaults on testing:

I can fully reproduce the errors.

> That is good. A new version is up at
> https://github.com/bulk88/perl5-win32-api . It has a normally off
> Win32::API verbose logging mode turned on. You will probably have to
> redirect stderr to stdout on the console to get proper interleaving of
> the 2. The TAP will be corrupt by the logging but the test line output
> is still readable by a human. I am still looking at your last post, but
> since I didn't quickly figure out what was wrong, I am requesting for
> you to try the verbose debugging version up on github right now.

t/00_API.t:
ok 11 - Import of IsBadReadPtr function from kernel32.dll
(PM)new: converted './API_test.dll' to
  'API_test.dll'
Win32::API::new: Loading library 'API_test.dll'
(PM)parse_prototype: got PROC 'ThisFunctionDoesntExist'
(PM)parse_prototype: got PARAMS 'int a, int b'
(PM)parse_prototype: IN='int' PACKING='i' API_TYPE=3
(PM)parse_prototype: IN='int' PACKING='i' API_TYPE=3
parse_prototype: IN=[ 3 3 ]
parse_prototype: OUT='int' PACKING='i' API_TYPE=3
FAILED GetProcAddress for Proc 'ThisFunctionDoesntExist': Transport
endpoint is already connected
Segmentation fault (core dumped)

XS_Win32__API_Call (my_perl=0x200393c8, cv=0x202d8150) at API.c:866
866                     params[i].t = T_NUMBER;
(gdb) bt
#0  XS_Win32__API_Call (my_perl=0x200393c8, cv=0x202d8150) at API.c:866
(gdb) p i
$1 = 0
(gdb) p params[i]
$2 = {{b = 0x8bdc4589 <Address 0x8bdc4589 out of bounds>, c = -119
'\211', s = 17801,
    p = 0x8bdc4589 <Address 0x8bdc4589 out of bounds>, l = 2346468745,
f = -8.48455424e-32, d = -626.03395816886143,
    q = -4574654168104680055}, t = 1 '\001'}

-- 
Reini Urban
http://cpanel.net/   http://www.perl-compiler.org/

Reply via email to