paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 12:10:25 +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; procedure fpc_varset_create_element(b,size : ptrint; var data); compilerproc;
type type
tbsetarray = bitpacked array[0..sizeof(sizeint)-1] of 0..1; tbsetarray = bitpacked array[0..high(sizeint)-1] of 0..1;
begin begin
FillChar(data,size,0); FillChar(data,size,0);
tbsetarray(data)[b]:=1; 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; procedure fpc_varset_set(const source;var dest; b,size : ptrint); compilerproc;
type type
tbsetarray = bitpacked array[0..sizeof(sizeint)-1] of 0..1; tbsetarray = bitpacked array[0..high(sizeint)-1] of 0..1;
begin begin
move(source,dest,size); move(source,dest,size);
tbsetarray(dest)[b]:=1; 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; procedure fpc_varset_unset(const source;var dest; b,size : ptrint); compilerproc;
type type
tbsetarray = bitpacked array[0..sizeof(sizeint)-1] of 0..1; tbsetarray = bitpacked array[0..high(sizeint)-1] of 0..1;
begin begin
move(source,dest,size); move(source,dest,size);
tbsetarray(dest)[b]:=0; 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; procedure fpc_varset_set_range(const orgset; var dest;l,h,size : ptrint); compilerproc;
type type
tbsetarray = bitpacked array[0..sizeof(sizeint)-1] of 0..1; tbsetarray = bitpacked array[0..high(sizeint)-1] of 0..1;
var var
i : ptrint; i : ptrint;
begin 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; procedure fpc_varset_add_sets(const set1,set2; var dest;size : ptrint); compilerproc;
type type
tbytearray = array[0..sizeof(sizeint)-1] of byte; tbytearray = array[0..high(sizeint)-1] of byte;
var var
i : ptrint; i : ptrint;
begin 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; procedure fpc_varset_mul_sets(const set1,set2; var dest;size : ptrint); compilerproc;
type type
tbytearray = array[0..sizeof(sizeint)-1] of byte; tbytearray = array[0..high(sizeint)-1] of byte;
var var
i : ptrint; i : ptrint;
begin 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; procedure fpc_varset_sub_sets(const set1,set2; var dest;size : ptrint); compilerproc;
type type
tbytearray = array[0..sizeof(sizeint)-1] of byte; tbytearray = array[0..high(sizeint)-1] of byte;
var var
i : ptrint; i : ptrint;
begin 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; procedure fpc_varset_symdif_sets(const set1,set2; var dest;size : ptrint); compilerproc;
type type
tbytearray = array[0..sizeof(sizeint)-1] of byte; tbytearray = array[0..high(sizeint)-1] of byte;
var var
i : ptrint; i : ptrint;
begin 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; function fpc_varset_comp_sets(const set1,set2;size : ptrint):boolean; compilerproc;
type type
tbytearray = array[0..sizeof(sizeint)-1] of byte; tbytearray = array[0..high(sizeint)-1] of byte;
var var
i : ptrint; i : ptrint;
begin 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; function fpc_varset_contains_sets(const set1,set2;size : ptrint):boolean; compilerproc;
type type
tbytearray = array[0..sizeof(sizeint)-1] of byte; tbytearray = array[0..high(sizeint)-1] of byte;
var var
i : ptrint; i : ptrint;
begin begin