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

* fixed upper bound of several helper array types for set operations

Browse Source 
(not really important, unless range checking would be enabled)

git-svn-id: trunk@20659 -
This commit is contained in:
Jonas Maebe 2012-03-29 20:34:56 +00:00
parent 431e494548
commit 670ee264de
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/inc/genset.inc
View File

@ -75,7 +75,7 @@ procedure fpc_varset_load(const l;sourcesize : longint;var dest;size : ptrint);
}
procedure fpc_varset_create_element(b,size : ptrint; var data); compilerproc;
type
tbsetarray = bitpacked array[0..sizeof(sizeint)-1] of 0..1;
tbsetarray = bitpacked array[0..high(sizeint)-1] of 0..1;
begin
FillChar(data,size,0);
tbsetarray(data)[b]:=1;
@ -89,7 +89,7 @@ procedure fpc_varset_create_element(b,size : ptrint; var data); compilerproc;
}
procedure fpc_varset_set(const source;var dest; b,size : ptrint); compilerproc;
type
tbsetarray = bitpacked array[0..sizeof(sizeint)-1] of 0..1;
tbsetarray = bitpacked array[0..high(sizeint)-1] of 0..1;
begin
move(source,dest,size);
tbsetarray(dest)[b]:=1;
@ -104,7 +104,7 @@ procedure fpc_varset_set(const source;var dest; b,size : ptrint); compilerproc;
}
procedure fpc_varset_unset(const source;var dest; b,size : ptrint); compilerproc;
type
tbsetarray = bitpacked array[0..sizeof(sizeint)-1] of 0..1;
tbsetarray = bitpacked array[0..high(sizeint)-1] of 0..1;
begin
move(source,dest,size);
tbsetarray(dest)[b]:=0;
@ -118,7 +118,7 @@ procedure fpc_varset_unset(const source;var dest; b,size : ptrint); compilerproc
}
procedure fpc_varset_set_range(const orgset; var dest;l,h,size : ptrint); compilerproc;
type
tbsetarray = bitpacked array[0..sizeof(sizeint)-1] of 0..1;
tbsetarray = bitpacked array[0..high(sizeint)-1] of 0..1;
var
i : ptrint;
begin
@ -135,7 +135,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..sizeof(sizeint)-1] of byte;
tbytearray = array[0..high(sizeint)-1] of byte;
var
i : ptrint;
begin
@ -151,7 +151,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..sizeof(sizeint)-1] of byte;
tbytearray = array[0..high(sizeint)-1] of byte;
var
i : ptrint;
begin
@ -167,7 +167,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..sizeof(sizeint)-1] of byte;
tbytearray = array[0..high(sizeint)-1] of byte;
var
i : ptrint;
begin
@ -183,7 +183,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..sizeof(sizeint)-1] of byte;
tbytearray = array[0..high(sizeint)-1] of byte;
var
i : ptrint;
begin
@ -199,7 +199,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..sizeof(sizeint)-1] of byte;
tbytearray = array[0..high(sizeint)-1] of byte;
var
i : ptrint;
begin
@ -218,7 +218,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..sizeof(sizeint)-1] of byte;
tbytearray = array[0..high(sizeint)-1] of byte;
var
i : ptrint;
begin