paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 01:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed warnings now that "longint or cardinal" gives a 64 bit result

Browse Source 
(part of r10418, forgot to commit)

git-svn-id: trunk@10419 -
This commit is contained in:
Jonas Maebe 2008-03-02 09:44:14 +00:00
parent 97f4c0a130
commit 22f02977ca
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw8282.pp
View File

@ -58,12 +58,12 @@ begin
Result.Hi32 := 0;
end else if Right < 32 then begin
Result.Hi32 := Left.Hi32 shr Right;
Result.Mid32 := (Left.Mid32 shr Right) or (Left.Hi32 shl (32 - Right));
Result.Mid32 := (Left.Mid32 shr Right) or dword(Left.Hi32 shl (32 - Right));
Result.Lo32 := (Left.Lo32 shr Right) or (Left.Mid32 shl (32 - Right));
end else if Right < 64 then begin
Result.Hi32 := 0;
Result.Mid32 := Left.Hi32 shr (Right-32);
Result.Lo32 := (Left.Mid32 shr (Right-32)) or (Left.Hi32 shl (64 - Right));
Result.Lo32 := longint(Left.Mid32 shr (Right-32)) or (Left.Hi32 shl (64 - Right));
end else if Right < 96 then begin
Result.Hi32 := 0;
Result.Mid32 := 0;
@ -96,7 +96,7 @@ begin
end else if Right < 32 then begin
Result.Lo32 := Left.Lo32 shl Right;
Result.Mid32 := (Left.Mid32 shl Right) or (Left.Lo32 shr (32 - Right));
Result.Hi32 := (Left.Hi32 shl Right) or (Left.Mid32 shr (32 - Right));
Result.Hi32 := (Left.Hi32 shl Right) or longint(Left.Mid32 shr (32 - Right));
end else if Right < 64 then begin
Result.Lo32 := 0;
Result.Mid32 := Left.Lo32 shl (Right-32);