Преглед изворни кода

* 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
         while assigned(st.defowner) do
           begin
           begin
             st:=st.defowner.owner;
             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
             { the flag is already set, so by definition it is set in the
               owning symtables as well }
               owning symtables as well }
             if option in st.tableoptions then
             if option in st.tableoptions then