Parcourir la source

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

florian il y a 1 an
Parent
commit
b81f92536d
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  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