paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 13:45:58 +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
Move(fmt,F[1],fmtlen);
S:=Format (F,Args);
<<<<<<< sysstr.inc
If Cardinal(Length(S))>Buflen then
=======
If cardinal(Length(S))>Buflen then
>>>>>>> 1.1.2.9
Result:=Length(S)
else
Result:=Buflen;
@ -1338,7 +1342,10 @@ const
{
$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
Revision 1.14 2002/01/24 12:33:53 jonas