paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 15:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Without a copy in most cases

Browse Source
This commit is contained in:
Alligator-1 2024-06-30 22:04:42 +05:00
parent bdef7af09e
commit f60bed0823
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/sysutils/sysformt.inc
View File

@ -368,8 +368,9 @@ begin
hs:=Args[doarg].VVariant^; hs:=Args[doarg].VVariant^;
Index:=Length(hs); Index:=Length(hs);
If (Prec<>-1) and (Index>Prec) then If (Prec<>-1) and (Index>Prec) then
Index:=Prec; ToAdd:=Copy(hs,1,Prec)
ToAdd:=Copy(hs,1,Index); else
ToAdd:=hs;
end; end;
'P' : Begin 'P' : Begin
CheckArg(vtpointer,true); CheckArg(vtpointer,true);