paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix bootstrapping wtih 3.2.2 and -Cpcoreavx2

Browse Source
This commit is contained in:
florian 2021-11-14 23:13:51 +01:00
parent 9f60628e5b
commit 64c21bb88b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/syshelpo.inc
View File

@ -149,7 +149,11 @@ end;
function TORDINALHELPER.SetBitsCount: byte;
begin
{$ifdef TORDINALTYPESIZE1}
{$ifdef VER3_2_2}
Result := PopCnt(Word(byte(Self)));
{$else VER3_2_2}
Result := PopCnt(byte(Self));
{$endif VER3_2_2}
{$else}
{$ifdef TORDINALTYPESIZE2}
Result := PopCnt(word(Self));