Browse Source

* patch from KMS, resolves 10147

git-svn-id: trunk@9611 -
marco 17 years ago
parent
commit
38bbdb95ee
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/utils/msgdif.pp

+ 1 - 1
compiler/utils/msgdif.pp

@@ -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