Incompatible type in MTProcs

[LemonParty]

Hello.

I am trying to compile this parallel code:

Code: Pascal  [Select][+][-]

1. function ReadFilesParallel(const aFileList: TStringDynArray): TBytesDynArray;
2.  
3.   procedure _ReadFilesParallel(Index: PtrInt; Data: Pointer; Item: TMultiThreadProcItem);
4.   begin
5.     ReadFileToBytes(aFileList[Index], Result[Index]);
6.   end;
7.  
8. begin
9.   SetLength(Result, Length(aFileList));
10.  
11.   ProcThreadPool.DoParallelNested(@_ReadFilesParallel, 0, Length(aFileList) - 1, nil, 4);
12. end;

Error occurs on line ProcThreadPool.DoParallelNested(@_ReadFilesParallel, 0, Length(aFileList) - 1, nil, 4); and it says:

Error: Incompatible type for arg no. 1: Got "<address of procedure(QWord;Pointer;TMultiThreadProcItem) is nested;Register>", expected "<procedure variable type of procedure(Int64;Pointer;TMultiThreadProcItem) is nested;Register>"

What is wrong?

[cdbc]

Hi
Are you sure the error-message belongs to the code shown?!?

Code: Pascal  [Select][+][-]

1. Index: PtrInt;

...or have you changed the code after run and before posting?
Anyway, you can then try and change from 'PtrInt' to 'PtrUInt', that's the param it's whining about... {in reverse that is...}
Regards Benny

[LemonParty]

Oh, sorry. I posted the wrong message. Here the right one:

Error: Incompatible type for arg no. 1: Got "<address of procedure(Int64;Pointer;TMultiThreadProcItem) is nested;Register>", expected "<procedure variable type of procedure(Int64;Pointer;TMultiThreadProcItem) is nested;Register>"

[LemonParty]

I found the solution. I missed {$ModeSwitch nestedprocvars} in the begin of a program.