search

Perl / perl5

🐪 The Perl programming language
https://dev.perl.org/perl5/
Other
2k stars 559 forks source link

_win32_times return value wrong, breaking Devel::DProf #393

Closed p5pRT closed 21 years ago

p5pRT commented 25 years ago

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

Searchable as RT1228$

p5pRT commented 25 years ago

From smueller@MICROSOFT.com

perl5.005\win32\win32.c implements an emulation of the non-ANSI but useful and BSDish 'times' function named win32_times. It's exported from perl.dll and called by Devel​::DProf. The emulation is incomplete\, and the constant zero return value makes the profiler return bogus information that results in bogus Total Elapsed Time values in the output of dprofpp.

A simple fix might be to return clock() instead.

While I'm running 5.00502\, it appears this bug is still present in both stable and devel versions (5.005_03 and 5.005_60)

Perl Info ``` Site configuration information for perl 5.00502: Summary of my perl5 (5.0 patchlevel 5 subversion 02) configuration: Platform: osname=MSWin32, osvers=4.0, archname=MSWin32-x86 uname='' hint=recommended, useposix=true, d_sigaction=undef usethreads=undef useperlio=undef d_sfio=undef Compiler: cc='cl.exe', optimize='-O2 -MD -DNDEBUG', gccversion= cppflags='-DWIN32' ccflags ='-O2 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT ' stdchar='char', d_stdstdio=define, usevfork=false intsize=4, longsize=4, ptrsize=4, doublesize=8 d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10 alignbytes=8, usemymalloc=n, prototype=define Linker and Libraries: ld='link', ldflags ='-nologo -nodefaultlib -release -machine:x86' libpth=d:\otools9\lib\x86 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 wsock32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib msvcrt.lib libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl.lib Dynamic Linking: dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' ' cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release -machine:x86' Locally applied patches: @INC for perl 5.00502: D:\otools10\lib\perl D:\otools10\lib\perl\x86 Environment for perl 5.00502: HOME (unset) LANG (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=C:\WINNT40\system32;C:\WINNT40;D:\otools10\ohome;D:\otools10\bin\x86;D: \otools10\bin;D:\Otools10\xl\util;D:\Otools10\Word\tools\bin;D:\otools10\mso \bin;D:\Otools10\Access\bin;c:\ctools\bin;c:\ctools\binx86;c:\ctools\binb;c: \dadcw;c:\cw32;c:\ctools\binw;c:\;d:\ PERL=d:\perl PERL_BADLANG (unset) SHELL (unset) stephan(); ```