paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 04:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test from mantis #35224 (already works)

Browse Source 
git-svn-id: trunk@41718 -
This commit is contained in:
Jonas Maebe 2019-03-16 20:01:57 +00:00
parent fd42c3fb01
commit d78dbd5d59
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -16565,6 +16565,7 @@ tests/webtbs/tw35139.pp svneol=native#text/plain
tests/webtbs/tw35139a.pp svneol=native#text/plain
tests/webtbs/tw35149.pp svneol=native#text/plain
tests/webtbs/tw35187.pp svneol=native#text/pascal
tests/webtbs/tw35224.pp svneol=native#text/plain
tests/webtbs/tw3523.pp svneol=native#text/plain
tests/webtbs/tw35233.pp svneol=native#text/plain
tests/webtbs/tw3529.pp svneol=native#text/plain

16
tests/webtbs/tw35224.pp Normal file
View File

@ -0,0 +1,16 @@
{$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.