paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation with kylix and fpc 1.1

Browse Source
This commit is contained in:
peter 2003-10-28 15:33:09 +00:00
parent dee4ce9d76
commit c8648b9840
2 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
tests/test/cg/taddlong.pp
View File

@ -135,7 +135,7 @@ begin
i := 0; i := 0;
j := $55555555; j := $55555555;
i := i xor j xor $AAAAAAAA; i := i xor j xor $AAAAAAAA;
if i <> $FFFFFFFF then if i <> longint($FFFFFFFF) then
result := false; result := false;
if not result then if not result then
Fail Fail
@ -164,8 +164,8 @@ Begin
i := 0; i := 0;
j := $55555555; j := $55555555;
i := i or j or $AAAAAAAA; i := i or j or longint($AAAAAAAA);
if i <> $FFFFFFFF then if i <> longint($FFFFFFFF) then
result := false; result := false;
if not result then if not result then
Fail Fail
@ -193,19 +193,19 @@ Begin
if i <> 0 then if i <> 0 then
result := false; result := false;
i := $FFFFFFFF; i := longint($FFFFFFFF);
j := $55555555; j := $55555555;
i := i and j; i := i and j;
if i <> $55555555 then if i <> $55555555 then
result := false; result := false;
i := $FFFFFFFF; i := longint($FFFFFFFF);
i := i and $AAAAAAAA; i := i and longint($AAAAAAAA);
if i <> $AAAAAAAA then if i <> longint($AAAAAAAA) then
result := false; result := false;
i := 0; i := 0;
j := $55555555; j := $55555555;
i := i and j and $AAAAAAAA; i := i and j and longint($AAAAAAAA);
if i <> 0 then if i <> 0 then
result := false; result := false;
if not result then if not result then
@ -272,10 +272,10 @@ begin
j := $FFFF; j := $FFFF;
if i >= j then if i >= j then
result := false; result := false;
i := $FFFFFFFF; i := longint($FFFFFFFF);
if i <= $FFFFFFFE then if i <= longint($FFFFFFFE) then
result := false; result := false;
j := $FFFFFFFF; j := longint($FFFFFFFF);
if i <= j then if i <= j then
begin begin
if result then if result then
@ -295,19 +295,19 @@ var
begin begin
Write('Longint >= Longint test...'); Write('Longint >= Longint test...');
result := true; result := true;
i := $FFFFFFFE; i := longint($FFFFFFFE);
j := $FFFFFFFF; j := longint($FFFFFFFF);
if i >= j then if i >= j then
result := false; result := false;
i := $FFFFFFFE; i := longint($FFFFFFFE);
j := $FFFFFFFF; j := longint($FFFFFFFF);
if i > j then if i > j then
result := false; result := false;
i := $FFFFFFFE; i := longint($FFFFFFFE);
if i > $FFFFFFFE then if i > longint($FFFFFFFE) then
result := false; result := false;
i := $FFFFFFFF; i := longint($FFFFFFFF);
j := $FFFFFFFF; j := longint($FFFFFFFF);
if i >= j then if i >= j then
begin begin
if result then if result then

2
tests/test/cg/tlohi.pp
View File

@ -53,7 +53,7 @@ begin
i := int64(w); i := int64(w);
if lo(w) <> (cardinal(w)) then if lo(w) <> (cardinal(w)) then
error('lo qword'); error('lo qword');
if lo(i) <> (longint(w)) then if longint(lo(i)) <> (longint(w)) then
error('lo int64'); error('lo int64');
if hi(w) <> (w shr 32) then if hi(w) <> (w shr 32) then