2
0
Эх сурвалжийг харах

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

florian 1 жил өмнө
parent
commit
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