paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:00:07 +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;
j := $55555555;
i := i xor j xor $AAAAAAAA;
if i <> $FFFFFFFF then
if i <> longint($FFFFFFFF) then
result := false;
if not result then
Fail
@ -164,8 +164,8 @@ Begin
i := 0;
j := $55555555;
i := i or j or $AAAAAAAA;
if i <> $FFFFFFFF then
i := i or j or longint($AAAAAAAA);
if i <> longint($FFFFFFFF) then
result := false;
if not result then
Fail
@ -193,19 +193,19 @@ Begin
if i <> 0 then
result := false;
i := $FFFFFFFF;
i := longint($FFFFFFFF);
j := $55555555;
i := i and j;
if i <> $55555555 then
result := false;
i := $FFFFFFFF;
i := i and $AAAAAAAA;
if i <> $AAAAAAAA then
i := longint($FFFFFFFF);
i := i and longint($AAAAAAAA);
if i <> longint($AAAAAAAA) then
result := false;
i := 0;
j := $55555555;
i := i and j and $AAAAAAAA;
i := i and j and longint($AAAAAAAA);
if i <> 0 then
result := false;
if not result then
@ -272,10 +272,10 @@ begin
j := $FFFF;
if i >= j then
result := false;
i := $FFFFFFFF;
if i <= $FFFFFFFE then
i := longint($FFFFFFFF);
if i <= longint($FFFFFFFE) then
result := false;
j := $FFFFFFFF;
j := longint($FFFFFFFF);
if i <= j then
begin
if result then
@ -295,19 +295,19 @@ var
begin
Write('Longint >= Longint test...');
result := true;
i := $FFFFFFFE;
j := $FFFFFFFF;
i := longint($FFFFFFFE);
j := longint($FFFFFFFF);
if i >= j then
result := false;
i := $FFFFFFFE;
j := $FFFFFFFF;
i := longint($FFFFFFFE);
j := longint($FFFFFFFF);
if i > j then
result := false;
i := $FFFFFFFE;
if i > $FFFFFFFE then
i := longint($FFFFFFFE);
if i > longint($FFFFFFFE) then
result := false;
i := $FFFFFFFF;
j := $FFFFFFFF;
i := longint($FFFFFFFF);
j := longint($FFFFFFFF);
if i >= j then
begin
if result then

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

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