paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 05:06:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fix for bug report 2097 in formatbuf

Browse Source
This commit is contained in:
michael 2002-08-29 10:04:25 +00:00
parent cf1facd27e
commit 3be9624a26
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/sysstr.inc
View File

@ -947,7 +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);
<<<<<<< sysstr.inc
If Cardinal(Length(S))>Buflen then If Cardinal(Length(S))>Buflen then
=======
If cardinal(Length(S))>Buflen then
>>>>>>> 1.1.2.9
Result:=Length(S) Result:=Length(S)
else else
Result:=Buflen; Result:=Buflen;
@ -1338,7 +1342,10 @@ const
{ {
$Log$ $Log$
Revision 1.15 2002-07-06 12:14:03 daniel Revision 1.16 2002-08-29 10:04:25 michael
+ Fix for bug report 2097 in formatbuf
Revision 1.15 2002/07/06 12:14:03 daniel
- Changes from Strasbourg - Changes from Strasbourg
Revision 1.14 2002/01/24 12:33:53 jonas Revision 1.14 2002/01/24 12:33:53 jonas