Hi All -
I'm attempting to run some threading test though everytime I run this code the IDE freezes and windows prompts me to debug the application.
Is anyone else able to run this?
Local array:TThread[3]
Local sc:Int = MilliSecs()
For Local x:Int = 0 To array.length - 1
array[x] = CreateThread(Loop,Null)
Next
Local ec:Int = MilliSecs()
Print (ec - sc)
Print "Waiting on Threads..."
Local sm:Int = MilliSecs()
For x = 0 To array.length
WaitThread(array[x])
Next
Local em:Int = MilliSecs()
Print (em - sm)
Function Loop:Object(data:Object)
Local sm:Int = MilliSecs()
Local list:TList = CreateList()
For Local x:Int = 0 To 1000000
list.addlast(New SimpleType)
Next
Local em:Int = MilliSecs()
Return Null
End Function
Type SimpleType
Field Val:String
End Type
|