浏览代码

This fixes an access violation when compiling tests\test\tgeneric30.pp

git-svn-id: branches/svenbarth/generics@17534 -
svenbarth 14 年之前
父节点
当前提交
bba6e0e73f
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/pdecsub.pas

+ 1 - 0
compiler/pdecsub.pas

@@ -1056,6 +1056,7 @@ implementation
          end;
 
         { method  ? }
+        def:=nil;
         if (consume_generic_type_parameter or not assigned(astruct)) and
            (symtablestack.top.symtablelevel=main_program_level) and
            try_to_consume(_POINT) then