فهرست منبع

* fix bootstrapping wtih 3.2.2 and -Cpcoreavx2

florian 3 سال پیش
والد
کامیت
64c21bb88b
1فایلهای تغییر یافته به همراه4 افزوده شده و 0 حذف شده
  1. 4 0
      rtl/objpas/sysutils/syshelpo.inc

+ 4 - 0
rtl/objpas/sysutils/syshelpo.inc

@@ -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));