* changed the 'size' parameter of fpc_zeromem and fpc_fillmem from ptruint to sizeuint

git-svn-id: trunk@34741 -

compiler/psub.pas

@@ -238,7 +238,7 @@ implementation
                b.left:=cstatementnode.create(
                          ccallnode.createintern('fpc_zeromem',
                            ccallparanode.create(
-                             cordconstnode.create(vardef.size,ptruinttype,false),
+                             cordconstnode.create(vardef.size,sizeuinttype,false),
                              ccallparanode.create(
                                caddrnode.create_internal(
                                  cloadnode.create(tsym(p),tsym(p).owner)),

rtl/inc/compproc.inc

@@ -37,8 +37,8 @@ Procedure fpc_freemem(p:pointer);compilerproc;
 {$endif FPC_HAS_FEATURE_HEAP}
 
 { used by Default() in code blocks }
-procedure fpc_zeromem(p:pointer;len:ptruint);inline;compilerproc;
-procedure fpc_fillmem(out data;len:ptruint;b : byte);inline;compilerproc;
+procedure fpc_zeromem(p:pointer;len:sizeuint);inline;compilerproc;
+procedure fpc_fillmem(out data;len:sizeuint;b : byte);inline;compilerproc;
 
 procedure fpc_Shortstr_SetLength(var s:shortstring;len:SizeInt); compilerproc;
 procedure fpc_shortstr_assign(len:{$ifdef cpu16}smallint{$else}longint{$endif};sstr,dstr:pointer); compilerproc;

rtl/inc/system.inc

@@ -335,13 +335,13 @@ begin
 end;
 
 
-procedure fpc_zeromem(p:pointer;len:ptruint);
+procedure fpc_zeromem(p:pointer;len:sizeuint);
 begin
   FillChar(p^,len,0);
 end;
 
 
-procedure fpc_fillmem(out data;len:ptruint;b : byte);
+procedure fpc_fillmem(out data;len:sizeuint;b : byte);
 begin
   FillByte(data,len,b);
 end;