소스 검색

* 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