paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid that fpc_fillmem does not inline due too much nested calls

Browse Source
This commit is contained in:
florian 2024-01-15 22:42:32 +01:00
parent dd4f7e9148
commit b81f92536d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/system.inc
View File

@ -413,7 +413,7 @@ end;
procedure fpc_fillmem(out data;len:sizeuint;b : byte); procedure fpc_fillmem(out data;len:sizeuint;b : byte);
begin begin
FillByte(data,len,b); FillChar(data,len,AnsiChar(b));
end; end;
{ Include generic pascal only routines which are not defined in the processor { Include generic pascal only routines which are not defined in the processor