Skip Menu |
Report information
Id: 119367
Status: resolved
Priority: 0/
Queue: perl5

Owner: Nobody
Requestors: browseruk [at] inbox.com
Cc:
AdminCc:

Operating System: mswin32
PatchStatus: (no value)
Severity: High
Type: core
Perl Version: 5.18.0
Fixed In: 5.27.7



Subject: Another 32-bit residual in 64-bit perl 5.18
Date: Mon, 19 Aug 2013 20:28:11 +0100
To: perlbug [...] perl.org
From: BrowserUk <browseruk [...] inbox.com>
Download (untitled) / with headers
text/plain 4.3k
Subject: Another 32-bit residual in 64-bit perl 5.18 Message-Id: <5.10.1_10680_1376940251@PB-IM2525-AIO> Reply-To: BrowserUk@xoxy.net To: perlbug@perl.org This is a bug report for perl from BrowserUk@xoxy.net, generated with the help of perlbug 1.39 running under perl 5.10.1. ----------------------------------------------------------------- [Please describe your issue here] The repeat count/repeat counter for unpack is still limited to a signed 32-bit integer in 64-bit builds. This demonstrates the problem: C:>\perl5.18\bin\perl.exe -E"$v=chr(255); $v x= 2**27; print unpack '%32b*', $v" 1073741824 C:>\perl5.18\bin\perl.exe -E"$v=chr(255); $v x= 2**28; print unpack '%32b*', $v" 0 [Please do not change anything below this line] ----------------------------------------------------------------- --- Flags: category=core severity=high --- Site configuration information for perl 5.18.0: Configured by sshd_server at Wed Jan 27 14:12:08 2010. Summary of my perl5 (revision 5 version 18 subversion 0) configuration: Platform: osname=MSWin32, osvers=6.0, archname=MSWin32-x64-multi-thread uname='' config_args='undef' hint=recommended, useposix=true, d_sigaction=undef useithreads=define, usemultiplicity=define useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef use64bitint=define, use64bitall=undef, uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='cl', ccflags ='-nologo -GF -W3 -O1 -MD -Zi -DNDEBUG -GL -fp:precise -DWIN32 -D_CONSOLE -DNO_STRICT -DWIN64 -DCONSERVATIVE -D_CRT_SECURE_NO_DEPRECATE -D_CRT_NONSTDC_NO_DEPRECATE -DPERL_TEXTMODE_SCRIPTS -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO', optimize='-O1 -MD -Zi -DNDEBUG -GL -fp:precise', cppflags='-DWIN32' ccversion='15.00.21022.08', gccversion='', gccosandvers='' intsize=4, longsize=4, ptrsize=8, doublesize=8, byteorder=12345678 d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=8 ivtype='__int64', ivsize=8, nvtype='double', nvsize=8, Off_t='__int64', lseeksize=8 alignbytes=8, prototype=define Linker and Libraries: ld='link', ldflags ='-nologo -nodefaultlib -debug -opt:ref,icf -ltcg -libpath:"c:\perl5.18\lib\CORE" -machine:AMD64 "/manifestdependency:type='Win32' name='Microsoft.Windows.Common-Controls' version='6.0.0.0' processorArchitecture='*' publicKeyToken='6595b64144ccf1df' language='*'"' libpth=\lib libs=oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib comctl32.lib msvcrt.lib perllibs=oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib comctl32.lib msvcrt.lib libc=msvcrt.lib, so=dll, useshrplib=true, libperl=perl518.lib gnulibc_version='' Dynamic Linking: dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' ' cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -debug -opt:ref,icf -ltcg -libpath:"c:\perl5.18\lib\CORE" -machine:AMD64 "/manifestdependency:type='Win32' name='Microsoft.Windows.Common-Controls' version='6.0.0.0' processorArchitecture='*' publicKeyToken='6595b64144ccf1df' language='*'"' Characteristics of this binary (from libperl): Compile-time options: HAS_TIMES HAVE_INTERP_INTERN MULTIPLICITY PERLIO_LAYERS PERL_DONT_CREATE_GVSV PERL_HASH_FUNC_ONE_AT_A_TIME_HARD PERL_IMPLICIT_CONTEXT PERL_IMPLICIT_SYS PERL_MALLOC_WRAP PERL_PRESERVE_IVUV PERL_SAWAMPERSAND USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_LOCALE USE_LOCALE_COLLATE USE_LOCALE_CTYPE USE_LOCALE_NUMERIC USE_PERLIO USE_PERL_ATOF Built under MSWin32 Compiled at May 21 2013 10:03:07 @INC: C:/perl5.18/site/lib C:/perl5.18/lib . Show quoted text
____________________________________________________________ FREE ONLINE PHOTOSHARING - Share your photos online with your friends and family! Visit http://www.inbox.com/photosharing to find out more!
RT-Send-CC: perl5-porters [...] perl.org
On Mon, 19 Aug 2013 19:28:40 GMT, browseruk@inbox.com wrote: Show quoted text
> Subject: Another 32-bit residual in 64-bit perl 5.18 > Message-Id: <5.10.1_10680_1376940251@PB-IM2525-AIO> > Reply-To: BrowserUk@xoxy.net > To: perlbug@perl.org > > > This is a bug report for perl from BrowserUk@xoxy.net, > generated with the help of perlbug 1.39 running under perl 5.10.1. > > > ----------------------------------------------------------------- > [Please describe your issue here] > > The repeat count/repeat counter for unpack is still limited to a > signed > 32-bit integer in 64-bit builds. > > This demonstrates the problem: > > C:>\perl5.18\bin\perl.exe -E"$v=chr(255); $v x= 2**27; print unpack > '%32b*', $v" > 1073741824 > > C:>\perl5.18\bin\perl.exe -E"$v=chr(255); $v x= 2**28; print unpack > '%32b*', $v" > 0 >
Persists in perl-5.24.0: ##### $ perl -E '$v=chr(255); $v x= 2**27; say unpack "%32b*", $v' 1073741824 $ perl -E '$v=chr(255); $v x= 2**28; say unpack "%32b*", $v' 0 ##### -- James E Keenan (jkeenan@cpan.org)
Date: Sat, 16 Dec 2017 01:51:38 +0000
To: perl5-porters [...] perl.org
From: Zefram <zefram [...] fysh.org>
Subject: Re: [perl #119367] Another 32-bit residual in 64-bit perl 5.18
Fixed in commit e1b825c19be2a160b0a3b633eb68e8d61887d21e. -zefram
Download (untitled) / with headers
text/plain 317b
Thank you for filing this report. You have helped make Perl better. With the release yesterday of Perl 5.28.0, this and 185 other issues have been resolved. Perl 5.28.0 may be downloaded via: https://metacpan.org/release/XSAWYERX/perl-5.28.0 If you find that the problem persists, feel free to reopen this ticket.


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

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org