Просмотр исходного кода

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

florian 1 год назад
Родитель
Сommit
b81f92536d
1 измененных файлов с 1 добавлено и 1 удалено
  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