浏览代码

* patch from KMS, resolves 10147

git-svn-id: trunk@9611 -
marco 17 年之前
父节点
当前提交
38bbdb95ee
共有 1 个文件被更改,包括 1 次插入1 次删除
  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
       begin
         j:=i+1; l:=length(msg)+1;
         j:=i+1; l:=length(msg)+1;
         while (j<l) and (Msg[j] in ['0'..'9']) do Inc(j);
         while (j<l) and (Msg[j] in ['0'..'9']) do Inc(j);
-        if j = l then
+        if j > (i+1) then
         begin
         begin
           val(copy(Msg,i+1,j-i-1),num,code);
           val(copy(Msg,i+1,j-i-1),num,code);
           if num > high(TArgSet) then begin
           if num > high(TArgSet) then begin