paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 17:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fix for formatbuf not applied correct

Browse Source
This commit is contained in:
michael 2002-09-02 06:07:16 +00:00
parent 6502638258
commit aca945888e
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/sysstr.inc
View File

@ -947,12 +947,11 @@ begin
if fmtlen > 0 then if fmtlen > 0 then
Move(fmt,F[1],fmtlen); Move(fmt,F[1],fmtlen);
S:=Format (F,Args); S:=Format (F,Args);
If Cardinal(Length(S))>Buflen then If Length(S)<Buflen then
Result:=Length(S) Result:=Length(S)
else else
Result:=Buflen; Result:=Buflen;
if Result > 0 then Move(S[1],Buffer,Result);
Move(S[1],Buffer,Result);
end; end;
Procedure FmtStr(Var Res: String; Const Fmt : String; Const args: Array of const); Procedure FmtStr(Var Res: String; Const Fmt : String; Const args: Array of const);
@ -1338,7 +1337,10 @@ const
{ {
$Log$ $Log$
Revision 1.17 2002-08-29 10:04:48 michael Revision 1.18 2002-09-02 06:07:16 michael
+ Fix for formatbuf not applied correct
Revision 1.17 2002/08/29 10:04:48 michael
+ Fix for bug report 2097 in formatbuf + Fix for bug report 2097 in formatbuf
Revision 1.16 2002/08/29 10:04:25 michael Revision 1.16 2002/08/29 10:04:25 michael