فهرست منبع

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