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

* replaced the arrays in the generic set helpers with arrays of 32 bytes

Browse Source 
instead of high(cardinal), so LLVM doesn't get tricked into massively
    unrolling and parallelising those loops

git-svn-id: trunk@43408 -
This commit is contained in:
Jonas Maebe 2019-11-06 21:50:23 +00:00
parent ac1e0f96bd
commit 490f057aa1
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/genset.inc
View File

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