SortStructuredList() beendet Programm

[computerkranker]

Wäre dankbar wenn jemand mal testet ob der Sort Befehl bei ihm auch das Programm beendet. Weil dann schein das ja ein Bug zu sein

Code: Alles auswählen

Structure TestStructure
  StringNummer.s
EndStructure 
NewList EineListe.TestStructure()

Debug "Erstelle..."
For t=100000 To 199999
  AddElement(EineListe())
  EineListe()\StringNummer=Str(t)
Next

Debug "Sort Starte"
SortStructuredList(EineListe(),2,OffsetOf(TestStructure\StringNummer),#PB_Sort_String)
Debug "Sort Ende"

While 1=1:Wend

[DrShrek]

/edit
Habe lange rumgetestet. Der scheinbare BUG ist keiner.

Reteste es bitte nochmal:
Ich habe es allerdings auf 109999 reduziert (=10000) Elemente.

Code: Alles auswählen

Structure TestStructure 
  StringNummer.s 
EndStructure 
NewList EineListe.TestStructure() 

Debug "Erstelle..." 
For t=100000 To 109999 
  AddElement(EineListe()) 
  EineListe()\StringNummer=Str(t) 
Next 

Debug "Start..." 
StartTime = ElapsedMilliseconds()             
SortStructuredList(EineListe(),2,OffsetOf(TestStructure\StringNummer),#PB_Sort_String) 
Debug "ende"
MessageRequester("",Str((ElapsedMilliseconds()-StartTime)/1000))

[computerkranker]

Reteste es bitte nochmal:
Ich habe es allerdings auf 109999 reduziert (=10000) Elemente.

Sobald ich den Schleifenzähler auf =<119999 setze, kommt das MessageRequester bei mir nicht mehr. Programm und Debugger beenden sich sauber nur leider an der falschen stellen.

[DrShrek]

Richtig! Ich melde den BUG.

[computerkranker]

Danke

[DrShrek]

Und hier ist bereits der fix:
http://www.purebasic.com/beta/Sort