From 64c21bb88be2d7b5a7dec56aafe2a896fa1011db Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 14 Nov 2021 23:13:51 +0100
Subject: [PATCH]   * fix bootstrapping wtih 3.2.2 and -Cpcoreavx2

---
 rtl/objpas/sysutils/syshelpo.inc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rtl/objpas/sysutils/syshelpo.inc b/rtl/objpas/sysutils/syshelpo.inc
index ad3365f67e..657d2442a1 100644
--- a/rtl/objpas/sysutils/syshelpo.inc
+++ b/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));