瀏覽代碼

* made internalerror unique

git-svn-id: trunk@27165 -
Jonas Maebe 11 年之前
父節點
當前提交
5dd4389f78
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/optvirt.pas

+ 1 - 1
compiler/optvirt.pas

@@ -593,7 +593,7 @@ unit optvirt;
         mainsymtab:=objparentsymtab.defowner.owner;
         mainsymtab:=objparentsymtab.defowner.owner;
         { main symtable must be static or global }
         { main symtable must be static or global }
         if not(mainsymtab.symtabletype in [staticsymtable,globalsymtable]) then
         if not(mainsymtab.symtabletype in [staticsymtable,globalsymtable]) then
-         internalerror(200204175);
+         internalerror(200204177);
         if (TSymtable(main_module.localsymtable)=mainsymtab) and
         if (TSymtable(main_module.localsymtable)=mainsymtab) and
             (not main_module.is_unit) then
             (not main_module.is_unit) then
            { same convention as for mangled names }
            { same convention as for mangled names }