[fpc-pascal] How can I write a multithread program as simple as possible?

[Tomas Hajny]

On Tue, May 26, 2015 18:12, Géza Kovacs Géza wrote:


Hi!

> I read the Wiki about this article, it's looks like very complicated for
> me. :-(
> Can anybody show me a very simple example?
> Below is a code, i would like to run it multithread both under Windows
> and Linux.
>
> Program Sorting;
> const
> 	n = 999000;
> var
> 	data : array [1..n] of integer;
> 	i, j, t: LongInt;
> begin
> 		for i := 1 to n do
> 			data[i]:=random(32768);
> 		for i := 1 to n-1 do
> 		begin
> 			for j:=i+1 to n do
> 			begin
> 				if data[i]<data[j] then
> 				begin
> 					t:=data[i];
> 					data[i]:=data[j];
> 					data[j]:=t;
> 				end;
> 			end;
> 		end;
> end.

What exactly shall be processed in parallel ("multithreaded") according to
your expectation? FPC doesn't provide any means for automated splitting
complex task into multiple smaller tasks spawned in parallel threads if
that's what you meant.

Tomas