paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 15:47:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch from KMS, resolves 10147

Browse Source 
git-svn-id: trunk@9611 -
This commit is contained in:
marco 2008-01-02 09:43:55 +00:00
parent 5724713259
commit 38bbdb95ee
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/utils/msgdif.pp
View File

@ -362,7 +362,7 @@ function MsgToSet(const Msg, FileName: string; var R: TArgSet): Boolean;
begin
j:=i+1; l:=length(msg)+1;
while (j<l) and (Msg[j] in ['0'..'9']) do Inc(j);
if j = l then
if j > (i+1) then
begin
val(copy(Msg,i+1,j-i-1),num,code);
if num > high(TArgSet) then begin