Explorar o código

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

florian hai 1 ano
pai
achega
b81f92536d
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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);
 begin
-  FillByte(data,len,b);
+  FillChar(data,len,AnsiChar(b));
 end;
 
 { Include generic pascal only routines which are not defined in the processor