Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

comment on

( #3333=superdoc: print w/replies, xml ) Need Help??

In the test program, I found it useful to change this line in do_one_thread():

for my $j (1..1000) {


for my $j (1..99999999) {

to demonstrate that the crash is not related to thread destruction.

As reported by others, the crash occurs when sortcv attempts to read memory at address zero. WinDbg spew of crash follows (perl 5.8.4):

0:002> ~* kv 0 Id: 2c48.2ad4 Suspend: 1 Teb: 7ffde000 Unfrozen ChildEBP RetAddr Args to Child 0140fbf4 77f5c534 77e7a62d 000007c0 00000000 SharedUserData!SystemCall +Stub+0x4 (FPO: [0,0,0]) 0140fbf8 77e7a62d 000007c0 00000000 00000000 ntdll!NtWaitForSingleObje +ct+0xc (FPO: [3,0,0]) 0140fc5c 77e7ac21 000007c0 ffffffff 00000000 kernel32!WaitForSingleObj +ectEx+0xa8 (FPO: [Non-Fpo]) *** WARNING: Unable to verify checksum for c:\pperl\lib\auto\threads\t +hreads.dll 0140fc6c 10002335 000007c0 ffffffff 00224ff8 kernel32!WaitForSingleObj +ect+0xf (FPO: [2,0,0]) 0140fca8 10002de8 00224fec 00225fa4 00000000 threads!Perl_ithread_join ++0xa5 (CONV: cdecl) [threads.xs @ 573] 0140fce8 280a1cc2 00224fec 01834f20 018e8bc4 threads!XS_threads_join+0 +xc0 (CONV: cdecl) [threads.xs @ 700] 0140fd80 2801d44f 00224fec 0140fda0 28059e3a perl58!Perl_pp_entersub+0 +x748 (CONV: cdecl) [..\pp_hot.c @ 2854] 0140fd8c 28059e3a 00224fec 00000001 0140fdd8 perl58!Perl_runops_debug+ +0x1c0 (CONV: cdecl) [..\dump.c @ 1442] 0140fda0 2805989c 00224fec 00000001 00000ff0 perl58!S_run_body+0x250 ( +CONV: cdecl) [..\perl.c @ 1921] 0140fe1c 2815d038 00224fec 00224fec 00000000 perl58!perl_run+0xb5 (CON +V: cdecl) [..\perl.c @ 1840] *** WARNING: Unable to verify checksum for perl.exe 0140ff38 00401025 00000002 00224e60 00223200 perl58!RunPerl+0xc6 (CONV +: cdecl) [perllib.c @ 202] 0140ff4c 00401113 00000002 00224e60 00223200 perl!main+0x15 (CONV: cde +cl) [perlmain.c @ 18] 0140ffc0 77e814c7 00000000 00000000 7ffdf000 perl!mainCRTStartup+0xe3 0140fff0 00000000 00401030 00000000 00000000 kernel32!BaseProcessStart ++0x23 (FPO: [Non-Fpo]) 1 Id: 2c48.2ed8 Suspend: 1 Teb: 7ffdd000 Unfrozen ChildEBP RetAddr Args to Child 02b1fd70 28100a8f 018d9914 0197e934 00000001 perl58!Perl_sv_grow+0x187 + (CONV: cdecl) [..\sv.c @ 1642] 02b1fdd8 281072c8 018d9914 0197e934 018da290 perl58!Perl_sv_setsv_flag +s+0x16c8 (CONV: cdecl) [..\sv.c @ 4019] 02b1fdf4 2808a343 018d9914 018da290 00000001 perl58!Perl_sv_mortalcopy ++0x8c (CONV: cdecl) [..\sv.c @ 6746] 02b1fe3c 2801d44f 018d9914 02b1fe54 2805ad46 perl58!Perl_pp_leaveloop+ +0x1d5 (CONV: cdecl) [..\pp_ctl.c @ 1774] 02b1fe48 2805ad46 018d9914 02b1ff54 2805a896 perl58!Perl_runops_debug+ +0x1c0 (CONV: cdecl) [..\dump.c @ 1442] 02b1fe54 2805a896 018d9914 02b1ff1c 00000000 perl58!S_call_body+0x50 ( +CONV: cdecl) [..\perl.c @ 2285] 02b1ff54 10001832 018d9914 0197e7cc 00000004 perl58!Perl_call_sv+0x701 + (CONV: cdecl) [..\perl.c @ 2203] 02b1ffb4 77e7d33b 0022e28c 018dd550 0101000b threads!Perl_ithread_run+ +0x219 (CONV: stdcall) [threads.xs @ 300] 02b1ffec 00000000 1000106e 0022e28c 00000000 kernel32!BaseThreadStart+ +0x37 (FPO: [Non-Fpo]) # 2 Id: 2c48.1ce4 Suspend: 1 Teb: 7ffdc000 Unfrozen ChildEBP RetAddr Args to Child 03b1f794 280aee43 0193412c 019ef8a0 019ef888 perl58!sortcv+0x21 (CONV: + cdecl) [..\pp_sort.c @ 1638] 03b1fd08 280aebae 0193412c 019ea658 00000014 perl58!S_mergesortsv+0x28 +e (CONV: cdecl) [..\pp_sort.c @ 424] 03b1fd34 280b1245 0193412c 019ea658 00000014 perl58!Perl_sortsv+0xae ( +CONV: cdecl) [..\pp_sort.c @ 1410] 03b1fe3c 2801d44f 0193412c 03b1fe54 2805ad46 perl58!Perl_pp_sort+0xcde + (CONV: cdecl) [..\pp_sort.c @ 1577] 03b1fe48 2805ad46 0193412c 03b1ff54 2805a896 perl58!Perl_runops_debug+ +0x1c0 (CONV: cdecl) [..\dump.c @ 1442] 03b1fe54 2805a896 0193412c 03b1ff1c 00000000 perl58!S_call_body+0x50 ( +CONV: cdecl) [..\perl.c @ 2285] 03b1ff54 10001832 0193412c 019ef7bc 00000004 perl58!Perl_call_sv+0x701 + (CONV: cdecl) [..\perl.c @ 2203] 03b1ffb4 77e7d33b 01950fac 018e7050 0101000b threads!Perl_ithread_run+ +0x219 (CONV: stdcall) [threads.xs @ 300] 03b1ffec 00000000 1000106e 01950fac 00000000 kernel32!BaseThreadStart+ +0x37 (FPO: [Non-Fpo]) 0:002> u eip perl58!sortcv+0x21 [..\pp_sort.c @ 1638]: 280b1932 8b02 mov eax,[edx] 280b1934 8b4820 mov ecx,[eax+0x20] 280b1937 8b550c mov edx,[ebp+0xc] 280b193a 8911 mov [ecx],edx 280b193c 8b4508 mov eax,[ebp+0x8] 280b193f 8b88a8010000 mov ecx,[eax+0x1a8] 280b1945 8b11 mov edx,[ecx] 280b1947 8b4220 mov eax,[edx+0x20] 0:002> .exr -1 ExceptionAddress: 280b1932 (perl58!sortcv+0x00000021) ExceptionCode: c0000005 (Access violation) ExceptionFlags: 00000000 NumberParameters: 2 Parameter[0]: 00000000 Parameter[1]: 00000000 Attempt to read from address 00000000

In reply to Re: Perl threads sort test program crashes by eyepopslikeamosquito
in thread Perl threads sort test program crashes by eyepopslikeamosquito

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others browsing the Monastery: (5)
    As of 2019-10-17 02:29 GMT
    Find Nodes?
      Voting Booth?