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

* avoid overflow error in ispowerof2 for -2^bitsize, the routine does not handle negative values

Browse Source 
git-svn-id: trunk@37963 -
This commit is contained in:
florian 2018-01-13 22:03:29 +00:00
parent 5c1df42fa4
commit 823c77e6cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cutils.pas
View File

@ -910,7 +910,7 @@ implementation
return if value is a power of 2. And if correct return the power return if value is a power of 2. And if correct return the power
} }
begin begin
if (value = 0) or (value and (value - 1) <> 0) then if (value <= 0) or (value and (value - 1) <> 0) then
exit(false); exit(false);
power:=BsfQWord(value); power:=BsfQWord(value);
result:=true; result:=true;