develooper Front page | perl.perl5.porters | Postings from August 2013

[perl #119367] Another 32-bit residual in 64-bit perl 5.18

From:
BrowserUk
Date:
August 21, 2013 17:39
Subject:
[perl #119367] Another 32-bit residual in 64-bit perl 5.18
Message ID:
rt-3.6.HEAD-1873-1376940520-1374.119367-75-0@perl.org
# New Ticket Created by  BrowserUk 
# Please include the string:  [perl #119367]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=119367 >


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
     .

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





nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About