浏览代码

compiler: don't crash after r20753

git-svn-id: trunk@20778 -
paul 13 年之前
父节点
当前提交
75eaad88fb
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/symtable.pas

+ 2 - 1
compiler/symtable.pas

@@ -810,7 +810,8 @@ implementation
            localvarsym,
            localvarsym,
            paravarsym :
            paravarsym :
              begin
              begin
-               if is_managed_type(tabstractvarsym(sym).vardef) then
+               if assigned(tabstractvarsym(sym).vardef) and
+                  is_managed_type(tabstractvarsym(sym).vardef) then
                  b_needs_init_final:=true;
                  b_needs_init_final:=true;
              end;
              end;
          end;
          end;