@@ -1,3 +1,5 @@
+{ %KNOWN }
+
{ Old file: tbs0243.pp }
{ Arguments of functions are computed from right to left this }
+{ %CPU=i386}
{ Old file: tbs0313.pp }
{ }
@@ -1,13 +1,15 @@
+{$mode objfpc}
uses
sysutils;
var
- s : tintset;
+ s : tintegerset;
begin
if sizeof(s)<>sizeof(integer) then
- writeln('Wrong size of Sysutils.TIntegerSet');
+ writeln('Wrong size of Sysutils.TIntegerSet (',sizeof(s),')');
halt(1);
end;
end.
@@ -1,3 +1,4 @@
+{ %CPU=i386 }
{$asmmode intel}