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

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

Browse Source 
git-svn-id: trunk@34741 -
This commit is contained in:
nickysn 2016-10-18 15:42:29 +00:00
parent a81d2b58f8
commit e1792e712a
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/psub.pas
View File

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

4
rtl/inc/compproc.inc
View File

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

4
rtl/inc/system.inc
View File

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