Another 32-bit residual in 64-bit perl 5.18

[p5pRT]

Migrated from rt.perl.org#119367 (status was 'resolved')

Searchable as RT119367$

[p5pRT]

From browseruk@inbox.com

Created by BrowserUk@xoxy.net

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

Perl Info

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
     .

____________________________________________________________
FREE ONLINE PHOTOSHARING - Share your photos online with your friends and family!
Visit http://www.inbox.com/photosharing to find out more!

[p5pRT]

From @jkeenan

On Mon, 19 Aug 2013 19​:28​:40 GMT, browseruk@​inbox.com wrote​:

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)

[p5pRT]

The RT System itself - Status changed from 'new' to 'open'

[p5pRT]

From zefram@fysh.org

Fixed in commit e1b825c.

-zefram

[p5pRT]

@xsawyerx - Status changed from 'open' to 'pending release'

[p5pRT]

From @khwilliamson

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.

[p5pRT]

@khwilliamson - Status changed from 'pending release' to 'resolved'