From 490f057aa11a32e1322e842343deab8d809c47a2 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 6 Nov 2019 21:50:23 +0000
Subject: [PATCH]   * replaced the arrays in the generic set helpers with
 arrays of 32 bytes     instead of high(cardinal), so LLVM doesn't get tricked
 into massively     unrolling and parallelising those loops

git-svn-id: trunk@43408 -
---
 rtl/inc/genset.inc | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/rtl/inc/genset.inc b/rtl/inc/genset.inc
index d12a702797..91296dfe91 100644
--- a/rtl/inc/genset.inc
+++ b/rtl/inc/genset.inc
@@ -18,6 +18,9 @@
                                  Var sets
  ****************************************************************************}
 
+const
+  maxsetsize = 32;
+
 {$ifndef FPC_SYSTEM_HAS_FPC_VARSET_LOAD_SMALL}
 {
   convert sets
@@ -135,7 +138,7 @@ procedure fpc_varset_set_range(const orgset; var dest;l,h,size : ptrint); compil
 }
 procedure fpc_varset_add_sets(const set1,set2; var dest;size : ptrint); compilerproc;
   type
-    tbytearray = array[0..high(sizeint)-1] of byte;
+    tbytearray = array[0..maxsetsize-1] of byte;
   var
     i : ptrint;
   begin
@@ -151,7 +154,7 @@ procedure fpc_varset_add_sets(const set1,set2; var dest;size : ptrint); compiler
 }
 procedure fpc_varset_mul_sets(const set1,set2; var dest;size : ptrint); compilerproc;
   type
-    tbytearray = array[0..high(sizeint)-1] of byte;
+    tbytearray = array[0..maxsetsize-1] of byte;
   var
     i : ptrint;
   begin
@@ -167,7 +170,7 @@ procedure fpc_varset_mul_sets(const set1,set2; var dest;size : ptrint); compiler
 }
 procedure fpc_varset_sub_sets(const set1,set2; var dest;size : ptrint); compilerproc;
   type
-    tbytearray = array[0..high(sizeint)-1] of byte;
+    tbytearray = array[0..maxsetsize-1] of byte;
   var
     i : ptrint;
   begin
@@ -183,7 +186,7 @@ procedure fpc_varset_sub_sets(const set1,set2; var dest;size : ptrint); compiler
 }
 procedure fpc_varset_symdif_sets(const set1,set2; var dest;size : ptrint); compilerproc;
   type
-    tbytearray = array[0..high(sizeint)-1] of byte;
+    tbytearray = array[0..maxsetsize-1] of byte;
   var
     i : ptrint;
    begin
@@ -199,7 +202,7 @@ procedure fpc_varset_symdif_sets(const set1,set2; var dest;size : ptrint); compi
 }
 function fpc_varset_comp_sets(const set1,set2;size : ptrint):boolean; compilerproc;
   type
-    tbytearray = array[0..high(sizeint)-1] of byte;
+    tbytearray = array[0..maxsetsize-1] of byte;
   var
     i : ptrint;
   begin
@@ -218,7 +221,7 @@ function fpc_varset_comp_sets(const set1,set2;size : ptrint):boolean; compilerpr
 }
 function fpc_varset_contains_sets(const set1,set2;size : ptrint):boolean; compilerproc;
   type
-    tbytearray = array[0..high(sizeint)-1] of byte;
+    tbytearray = array[0..maxsetsize-1] of byte;
   var
     i : ptrint;
   begin