Seite 1 von 1

SortStructuredList() beendet Programm

Verfasst: 03.03.2005 00:18
von 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 :mrgreen:

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

Verfasst: 03.03.2005 08:58
von 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))

Verfasst: 03.03.2005 10:50
von 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.

Verfasst: 03.03.2005 10:58
von DrShrek
Richtig! Ich melde den BUG.

Verfasst: 03.03.2005 11:05
von computerkranker
Danke :mrgreen:

Verfasst: 03.03.2005 14:30
von DrShrek
Und hier ist bereits der fix:
http://www.purebasic.com/beta/Sort