浏览代码

* also check for Nil symtables in tsymtable.includeoption

git-svn-id: trunk@43567 -
svenbarth 5 年之前
父节点
当前提交
6edf6cad2c
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      compiler/symbase.pas

+ 4 - 0
compiler/symbase.pas

@@ -284,6 +284,10 @@ implementation
         while assigned(st.defowner) do
           begin
             st:=st.defowner.owner;
+            { this can happen for specializations of routines that are not yet
+              owned cause they might be thrown away again }
+            if not assigned(st) then
+              break;
             { the flag is already set, so by definition it is set in the
               owning symtables as well }
             if option in st.tableoptions then