Skip Menu |
Report information
Id: 119367
Status: pending release
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


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