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

* fixed overflow errors

Browse Source 
git-svn-id: trunk@5318 -
This commit is contained in:
Jonas Maebe 2006-11-10 21:14:37 +00:00
parent b8c3fecd1d
commit d26ee9dccf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/powerpc/aoptcpu.pas
View File

@ -207,11 +207,11 @@ const
begin
// 1 shl 32 = 1 instead of 0 on x86
if (l1 <> 0) then
result := (1 shl (32 - l1) - 1) xor (1 shl (31 - l2) - 1)
result := longint(cardinal(1) shl (32 - l1) - 1) xor (cardinal(1) shl (31 - l2) - 1)
else
result := not(1 shl (31 - l2) - 1);
result := longint(not(cardinal(1) shl (31 - l2) - 1));
if (l1 > l2) then
result := not(result);
result := not(result);
end;