From e1792e712abc9f317c9b400b094d5e81c606614f Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 18 Oct 2016 15:42:29 +0000
Subject: [PATCH] * changed the 'size' parameter of fpc_zeromem and fpc_fillmem
 from ptruint to sizeuint

git-svn-id: trunk@34741 -
---
 compiler/psub.pas    | 2 +-
 rtl/inc/compproc.inc | 4 ++--
 rtl/inc/system.inc   | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/psub.pas b/compiler/psub.pas
index e6f024053f..22d4092fbc 100644
--- a/compiler/psub.pas
+++ b/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)),
diff --git a/rtl/inc/compproc.inc b/rtl/inc/compproc.inc
index 11398357a1..0cab5b1f38 100644
--- a/rtl/inc/compproc.inc
+++ b/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;
diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index a017a7089d..53cd9d6a4d 100644
--- a/rtl/inc/system.inc
+++ b/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;