paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-05 23:32:29 +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

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

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