Skip Menu |
 

This queue is for tickets about the List-MoreUtils CPAN distribution.

Report information
The Basics
Id: 48340
Status: resolved
Priority: 0/
Queue: List-MoreUtils

People
Owner: Nobody in particular
Requestors: taro.nishino [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: (no value)
Fixed in: (no value)



Subject: Compilation failure using MS VC++.(List-MoreUtils-0.25_01)
Download (untitled) / with headers
text/plain 134b
Dear Tassilo, Unfortunately the compilation fails using MS VC++ 7.0. Could you apply the attached patch? Best regards, Taro Nishino
Subject: MoreUtils.xs.diff.txt
--- MoreUtils.xs.orig Fri Jul 31 09:38:13 2009 +++ MoreUtils.xs Fri Jul 31 10:29:02 2009 @@ -155,7 +155,13 @@ #define FUNC_NAME GvNAME(GvEGV(ST(items))) -inline static int +#ifdef _MSC_VER +# define INLINE +#else +# define INLINE inline +#endif + +INLINE static int in_pad (const char *name, SV *code) { GV *gv; @@ -1516,8 +1522,11 @@ CV *cv; I32 gimme = GIMME; /* perl-5.5.4 bus-errors out later when using GIMME therefore we save its value in a fresh variable */ - - register long long i, j; +#ifdef _MSC_VER + register __int64 i, j, k; +#else + register long long i, j, k; +#endif int val = -1; if (items > 1) { @@ -1531,7 +1540,7 @@ i = 0; j = items - 1; do { - long long k = ((double)(i + j)) / 2.0; + k = ((double)(i + j)) / 2.0; if (k >= items-1) break;
Should be fixed meanwhile :)


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.