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

View File

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

View File

@ -1,3 +1,5 @@
{ %CPU=i386}
{ Old file: tbs0313.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.

View File

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