瀏覽代碼

Ensure uniqueness of internal errors

git-svn-id: trunk@34183 -
svenbarth 9 年之前
父節點
當前提交
3147374178
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/pkgutil.pas

+ 2 - 2
compiler/pkgutil.pas

@@ -653,7 +653,7 @@ implementation
                     if tstaticvarsym(psym).mangledname=symname then
                       found:=true;
                   else
-                    internalerror(2014101005);
+                    internalerror(2014101003);
                 end;
                 if found then
                   break;
@@ -764,7 +764,7 @@ implementation
                                 end;
                             end;
                           else
-                            internalerror(2014101001);
+                            internalerror(2014101002);
                         end;
                         alreadyloaded.add(sym);
                       end;