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 } { Old file: tbs0243.pp }
{ Arguments of functions are computed from right to left this } { Arguments of functions are computed from right to left this }

View File

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

View File

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

View File

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