* fpc_varset_load takes a ptrint for set size

rtl/inc/compproc.inc

@@ -744,9 +744,9 @@ Procedure fpc_Copy_proc (Src, Dest, TypeInfo : Pointer); compilerproc; inline;
 
 
 {$ifdef FPC_SETBASE_USED}
-procedure fpc_varset_load(const l;sourcesize : longint;var dest;size,srcminusdstbase : ptrint); compilerproc;
+procedure fpc_varset_load(const l;sourcesize : ptrint;var dest;size,srcminusdstbase : ptrint); compilerproc;
 {$else}
-procedure fpc_varset_load(const l;sourcesize : longint;var dest;size : ptrint); compilerproc;
+procedure fpc_varset_load(const l;sourcesize : ptrint;var dest;size : ptrint); compilerproc;
 {$endif}
 procedure fpc_varset_create_element(b,size : ptrint; var data); compilerproc;
 procedure fpc_varset_set(const source;var dest; b,size : ptrint); compilerproc;

rtl/inc/genset.inc

@@ -26,7 +26,7 @@ const
   convert sets
 }
 {$ifdef FPC_SETBASE_USED}
-procedure fpc_varset_load(const l;sourcesize : longint;var dest;size,srcminusdstbase : ptrint); compilerproc;
+procedure fpc_varset_load(const l;sourcesize : ptrint;var dest;size,srcminusdstbase : ptrint); compilerproc;
   var
     srcptr, dstptr: pointer;
   begin
@@ -60,7 +60,7 @@ procedure fpc_varset_load(const l;sourcesize : longint;var dest;size,srcminusdst
 
 {$else FPC_SETBASE_USED}
 
-procedure fpc_varset_load(const l;sourcesize : longint;var dest;size : ptrint); compilerproc;
+procedure fpc_varset_load(const l;sourcesize : ptrint;var dest;size : ptrint); compilerproc;
   begin
     if sourcesize>size then
       sourcesize:=size;