paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-03 22:20:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix stringofchar for count<=0

Browse Source
This commit is contained in:
michael 2018-10-17 21:36:40 +00:00
parent 0f607847a6
commit fd98459d58
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl/system.pas
View File

@ -603,7 +603,7 @@ var
i: Integer;
begin
asm
if (c.repeat) return c.repeat(l);
if ((l>0) && c.repeat) return c.repeat(l);
end;
Result:='';
for i:=1 to l do Result:=Result+c;