mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 11:30:31 +02:00
compiler: don't crash after r20753
git-svn-id: trunk@20778 -
This commit is contained in:
parent
bed154d366
commit
75eaad88fb
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user