mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-05 14:29:31 +01:00
* fixed
This commit is contained in:
parent
7c067cef8a
commit
843366e01d
@ -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 }
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,5 @@
|
|||||||
|
{ %CPU=i386}
|
||||||
|
|
||||||
{ Old file: tbs0313.pp }
|
{ Old file: tbs0313.pp }
|
||||||
{ }
|
{ }
|
||||||
|
|
||||||
|
|||||||
@ -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.
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
|
{ %CPU=i386 }
|
||||||
{$asmmode intel}
|
{$asmmode intel}
|
||||||
|
|
||||||
var
|
var
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user