paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: fix property access from a nested routine of the static class method and extend a test

Browse Source 
git-svn-id: trunk@25280 -
This commit is contained in:
paul 2013-08-18 12:36:04 +00:00
parent 38058505ba
commit 4b76782691
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pexpr.pas
View File

@ -2671,12 +2671,10 @@ implementation
begin
if (srsymtable.symtabletype in [ObjectSymtable,recordsymtable]) then
{ if we are accessing a owner procsym from the nested }
{ class we need to call it as a class member }
if assigned(current_structdef) and (current_structdef<>hdef) and is_owned_by(current_structdef,hdef) then
p1:=cloadvmtaddrnode.create(ctypenode.create(hdef))
else
if assigned(current_procinfo) and current_procinfo.procdef.no_self_node then
{ no self node in static class methods }
{ class or from a static class method we need to call }
{ it as a class member }
if (assigned(current_structdef) and (current_structdef<>hdef) and is_owned_by(current_structdef,hdef)) or
(assigned(current_procinfo) and current_procinfo.get_normal_proc.procdef.no_self_node) then
p1:=cloadvmtaddrnode.create(ctypenode.create(hdef))
else
p1:=load_self_node;

10
tests/webtbs/tw24865.pp
View File

@ -5,8 +5,11 @@ program tw24865;
type
TTest = class
public
class var fc3: integer;
class procedure c1();
class procedure c2(); static;
class property c3: integer read fc3 write fc3;
end;
class procedure TTest.c1;
@ -14,9 +17,13 @@ begin
end;
class procedure TTest.c2;
procedure nested;
function nested: integer;
begin
c1;
fc3 := 1;
c3 := 2;
result := c3;
end;
begin
@ -24,4 +31,3 @@ end;
begin
end.