compiler: don't crash after r20753

git-svn-id: trunk@20778 -
This commit is contained in:
paul 2012-04-10 01:19:10 +00:00
parent bed154d366
commit 75eaad88fb

View File

@ -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;