Browse Source

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

florian 1 year ago
parent
commit
b81f92536d
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/inc/system.inc

+ 1 - 1
rtl/inc/system.inc

@@ -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