paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 08:31:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed

Browse Source
This commit is contained in:
peter 2000-12-09 16:00:10 +00:00
parent 7c067cef8a
commit 843366e01d
4 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs/tb0207.pp
View File

@ -1,3 +1,5 @@
{ %KNOWN }
{ Old file: tbs0243.pp }
{ Arguments of functions are computed from right to left this }

2
tests/tbs/tb0269.pp
View File

@ -1,3 +1,5 @@
{ %CPU=i386}
{ Old file: tbs0313.pp }
{ }

6
tests/tbs/tb0334.pp
View File

@ -1,13 +1,15 @@
{$mode objfpc}
uses
sysutils;
var
s : tintset;
s : tintegerset;
begin
if sizeof(s)<>sizeof(integer) then
begin
writeln('Wrong size of Sysutils.TIntegerSet');
writeln('Wrong size of Sysutils.TIntegerSet (',sizeof(s),')');
halt(1);
end;
end.

1
tests/tbs/tb0335.pp
View File

@ -1,3 +1,4 @@
{ %CPU=i386 }
{$asmmode intel}
var