mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-01 04:30:16 +02:00
* fixed
This commit is contained in:
parent
7c067cef8a
commit
843366e01d
@ -1,3 +1,5 @@
|
||||
{ %KNOWN }
|
||||
|
||||
{ Old file: tbs0243.pp }
|
||||
{ Arguments of functions are computed from right to left this }
|
||||
|
||||
|
@ -1,3 +1,5 @@
|
||||
{ %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
|
||||
begin
|
||||
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}
|
||||
|
||||
var
|
||||
|
Loading…
Reference in New Issue
Block a user