IOmniFuture in dynamic array

[Rura1980]

I call Parallel.Future in a for loop and store IOmniFuture in a array of IOmniFuture. Later I want to iterate through this array and call future.Value for each element. Unfortunately, this code fails occasionly with TList.IndexOutOfBounds. When I wait for the future to complete before adding to dynamic array, everything works fine. What am I doing wrong?

[gabr42]

Provide a minimal working example (http://sscce.org), please.

[Rura1980]

I am using Delphi XE. Modified code a little bit and now my program crashes (but not always) with access violation in OtlSync line 1891 FAwaitedLock.Acquire.

It seems to be something quite simple, but I cannot figure it out... Any comments are welcomed.

program DeCalTest;

{$APPTYPE CONSOLE}

uses FastMM4, Windows, SysUtils, Classes, SyncObjs, Generics.Collections, OtlParallel, OtlCommon, OtlCollections, OtlTask, OtlTaskControl;

procedure ProcessMessages; var Msg: TMsg; begin while PeekMessage( Msg, 0, 0, 0, PM_REMOVE ) do begin TranslateMessage( Msg ); DispatchMessage( Msg ); end; end;

procedure TestFutures; var x: array of IOmniFuture; j: integer; begin SetLength( x, 70 ); for j := 0 to Length( x ) - 1 do begin x[j] := Parallel.Future( function: integer begin TThread.CurrentThread.Sleep( 100 ); Result := 0; end ); end; ProcessMessages; for j := 0 to Length(x) - 1 do begin Writeln( Format( 'x[%d] = %d', [j, x[j].Value] ) ); x[j] := nil; end; SetLength(x, 0); x := nil; end;

begin ReportMemoryLeaksOnShutdown := DebugHook <> 0; Randomize;

TestFutures; Writeln( 'Press any key' ); ProcessMessages; Readln;

end.

This program crashed but not always with access violation in OtlSync line 1891 FAwaitedLock.Acquire.

[gabr42]

Sorry, but I can't repeat your problem with Delphi 10.3 Rio and latest OmniThreadLibrary source code.

[Rura1980]

I cannot repeat my problem with Delphi 10.3 Rio either. Very strange.