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

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

git-svn-id: trunk@20659 -

rtl/inc/genset.inc

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