paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 02:45:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed

Browse Source 
git-svn-id: trunk@2551 -
This commit is contained in:
Jonas Maebe 2006-02-12 21:31:25 +00:00
parent b160cf3540
commit 95a44d5beb
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/test/opt/treg4.pp
View File

@ -27,9 +27,15 @@ begin
r.b2 := 31; r.b2 := 31;
end; end;
procedure t3(out r: tr); procedure t3(out r: tr); inline;
begin begin
t2(r); r.l := 88;
r.b2 := 9;
end;
procedure t4(out r: tr);
begin
t3(r);
end; end;
@ -41,8 +47,8 @@ begin
if ((r.l and 255) <> 7) or if ((r.l and 255) <> 7) or
(r.b2 <> 31) then (r.b2 <> 31) then
halt(1); halt(1);
t3(r); t4(r);
if (r.b3 <> 6) or if ((r.l and 255) <> 88) or
((r.l and 255) <> 5) then (r.b2 <> 9) then
halt(1); halt(1);
end. end.