mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
771479e65c
- Explicit typecasts like LongBool(byte_value) do not change ordinal value. - Explicit typecasts like ByteBool(longint_value) do not change ordinal value and can lead to data loss if longint_value is outside of ByteBool range. - Explicit typecasts like ByteBool(LongBool) handle type ranges correctly. - Updated test tw10233.pp. It is passed by Delphi as well. git-svn-id: trunk@10672 -
44 lines
895 B
ObjectPascal
44 lines
895 B
ObjectPascal
var
|
|
i: Byte;
|
|
w: word;
|
|
l: cardinal;
|
|
{$ifdef FPC}
|
|
g: qword;
|
|
{$endif FPC}
|
|
begin
|
|
i := $80;
|
|
if Byte(ByteBool(i))<>$80 then
|
|
halt(1);
|
|
if Word(WordBool(i))<>$80 then
|
|
halt(11);
|
|
if LongInt(LongBool(i))<>$80 then
|
|
halt(12);
|
|
w := $8000;
|
|
if Word(WordBool(w))<>$8000 then
|
|
halt(2);
|
|
l := $80000000;
|
|
if Cardinal(LongBool(l))<>$80000000 then
|
|
halt(3);
|
|
{$ifdef FPC}
|
|
g := qword($8000000000000000);
|
|
if qword(qwordBool(g))<>qword($8000000000000000) then
|
|
halt(4);
|
|
{$endif FPC}
|
|
|
|
if Byte(ByteBool(WordBool(w)))<>high(byte) then
|
|
halt(5);
|
|
if Byte(ByteBool(w))<>0 then
|
|
halt(51);
|
|
if Word(WordBool(LongBool(l)))<>high(word) then
|
|
halt(6);
|
|
if Word(WordBool(l))<>0 then
|
|
halt(61);
|
|
{$ifdef FPC}
|
|
if Cardinal(LongBool(qwordBool(g)))<>high(cardinal) then
|
|
halt(7);
|
|
if Cardinal(LongBool(g))<>0 then
|
|
halt(7);
|
|
{$endif FPC}
|
|
writeln('Test OK.');
|
|
end.
|