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

compiler: fix nested class types and consts usage outside class declaration

Browse Source 
git-svn-id: trunk@14615 -
This commit is contained in:
paul 2010-01-11 18:35:08 +00:00
parent c39c87096a
commit 6e51a4d4a9
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pexpr.pas
View File

@ -1250,10 +1250,14 @@ implementation
end; end;
typesym: typesym:
begin begin
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
p1:=cloadvmtaddrnode.create(p1);
end; end;
constsym: constsym:
begin begin
p1.free;
p1:=genconstsymtree(tconstsym(sym)); p1:=genconstsymtree(tconstsym(sym));
end end
else else