Browse Source

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

git-svn-id: branches/svenbarth/generics@17534 -
svenbarth 14 years ago
parent
commit
bba6e0e73f
1 changed files with 1 additions and 0 deletions
  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