paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 22:32:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for 11099

Browse Source 
git-svn-id: trunk@10605 -
This commit is contained in:
marco 2008-04-06 11:14:06 +00:00
parent 2417a02a3b
commit 99c4e92735
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,7 +58,10 @@ Var ChPos,OldPos,ArgPos,DoArg,Len : SizeInt;
Procedure ReadIndex; Procedure ReadIndex;
begin begin
ReadInteger; If Fmt[ChPos]<>':' then
ReadInteger
else
value:=0; // Delphi undocumented behaviour, assume 0, #11099
If Fmt[ChPos]=':' then If Fmt[ChPos]=':' then
begin begin
If Value=-1 then DoFormatError(feMissingArgument); If Value=-1 then DoFormatError(feMissingArgument);