paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: fix nested class types

Browse Source 
git-svn-id: trunk@14616 -
This commit is contained in:
paul 2010-01-11 19:32:16 +00:00
parent 6e51a4d4a9
commit 55702ed4c0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pexpr.pas
View File

@ -1252,7 +1252,8 @@ implementation
begin begin
p1.free; p1.free;
p1:=ctypenode.create(ttypesym(sym).typedef); p1:=ctypenode.create(ttypesym(sym).typedef);
if not(block_type in [bt_type,bt_const_type,bt_var_type]) then if (is_class(ttypesym(sym).typedef) or is_objcclass(ttypesym(sym).typedef)) and
not(block_type in [bt_type,bt_const_type,bt_var_type]) then
p1:=cloadvmtaddrnode.create(p1); p1:=cloadvmtaddrnode.create(p1);
end; end;
constsym: constsym: