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

* compilation on non x86 fixed

Browse Source 
git-svn-id: trunk@22330 -
This commit is contained in:
florian 2012-09-05 18:49:48 +00:00
parent 03bf93488b
commit 57ee96ef86
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/generic.inc
View File

@ -2434,7 +2434,7 @@ function BsfQWord(Const AValue : QWord): cardinal;
result:=$ff;
if lo(AValue) <> 0 then
result:=BsfDWord(lo(AValue))
else hi(AValue) <> 0 then
else if hi(AValue) <> 0 then
result:=BsfDWord(hi(AValue)) + 32;
end;
{$endif}