paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 11:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more checks for private and protected

Browse Source
This commit is contained in:
peter 2002-01-29 21:25:22 +00:00
parent 321b6da1c4
commit 0c96d4406b
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/pexpr.pas
View File

@ -428,7 +428,8 @@ implementation
while assigned(classh) do while assigned(classh) do
begin begin
sym:=tsym(classh.symtable.search(pattern)); sym:=tsym(classh.symtable.search(pattern));
if assigned(sym) then if assigned(sym) and
tstoredsym(sym).is_visible_for_proc(aktprocdef) then
break; break;
classh:=classh.childof; classh:=classh.childof;
end; end;
@ -1318,7 +1319,8 @@ implementation
{ search also in inherited methods } { search also in inherited methods }
repeat repeat
srsym:=tvarsym(tobjectdef(htype.def).symtable.search(pattern)); srsym:=tvarsym(tobjectdef(htype.def).symtable.search(pattern));
if assigned(srsym) then if assigned(srsym) and
tstoredsym(srsym).is_visible_for_proc(aktprocdef) then
break; break;
htype.def:=tobjectdef(htype.def).childof; htype.def:=tobjectdef(htype.def).childof;
until not assigned(htype.def); until not assigned(htype.def);
@ -1759,7 +1761,8 @@ implementation
while assigned(classh) do while assigned(classh) do
begin begin
hsym:=tsym(classh.symtable.search(pattern)); hsym:=tsym(classh.symtable.search(pattern));
if assigned(hsym) then if assigned(hsym) and
tstoredsym(hsym).is_visible_for_proc(aktprocdef) then
break; break;
classh:=classh.childof; classh:=classh.childof;
end; end;
@ -1787,7 +1790,8 @@ implementation
while assigned(classh) do while assigned(classh) do
begin begin
hsym:=tsym(classh.symtable.search(pattern)); hsym:=tsym(classh.symtable.search(pattern));
if assigned(hsym) then if assigned(hsym) and
tstoredsym(hsym).is_visible_for_proc(aktprocdef) then
break; break;
classh:=classh.childof; classh:=classh.childof;
end; end;
@ -1973,7 +1977,8 @@ implementation
while assigned(classh) do while assigned(classh) do
begin begin
sym:=tsym(tobjectdef(classh).symtable.search(hs)); sym:=tsym(tobjectdef(classh).symtable.search(hs));
if assigned(sym) then if assigned(sym) and
tstoredsym(sym).is_visible_for_proc(aktprocdef) then
begin begin
if sym.typ=procsym then if sym.typ=procsym then
begin begin
@ -2483,7 +2488,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.55 2002-01-24 18:25:49 peter Revision 1.56 2002-01-29 21:25:22 peter
* more checks for private and protected
Revision 1.55 2002/01/24 18:25:49 peter
* implicit result variable generation for assembler routines * implicit result variable generation for assembler routines
* removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead * removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead