mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 09:08:00 +02:00
17 lines
295 B
ObjectPascal
17 lines
295 B
ObjectPascal
{$mode objfpc}
|
|
{$OPTIMIZATION LOOPUNROLL}
|
|
|
|
type TList = array [0..3] of integer;
|
|
|
|
var worklist, tmplist : TList;
|
|
|
|
function flip (const list1: TList; var list2: TList): integer; inline;
|
|
var i: integer;
|
|
begin
|
|
for i := 0 to 3 do list2[i] := list1[i];
|
|
end;
|
|
|
|
begin
|
|
flip (worklist, tmplist);
|
|
end.
|