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

* from peter for bug #3862

Browse Source
This commit is contained in:
marco 2005-04-01 07:12:29 +00:00
parent 1910cee059
commit 8d69beb6ef
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/htypechk.pas
View File

@ -1387,7 +1387,11 @@ implementation
that can be used to access protected members in other that can be used to access protected members in other
units. At least kylix supports it this way (PFV) } units. At least kylix supports it this way (PFV) }
if assigned(st) and if assigned(st) and
(st.symtabletype=objectsymtable) and (
(st.symtabletype=objectsymtable) or
((st.symtabletype=withsymtable) and
(st.defowner.deftype=objectdef))
) and
(st.defowner.owner.symtabletype in [globalsymtable,staticsymtable]) and (st.defowner.owner.symtabletype in [globalsymtable,staticsymtable]) and
st.defowner.owner.iscurrentunit then st.defowner.owner.iscurrentunit then
topclassh:=tobjectdef(st.defowner) topclassh:=tobjectdef(st.defowner)
@ -2049,7 +2053,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.121 2005-03-28 15:04:40 peter Revision 1.122 2005-04-01 07:12:29 marco
* from peter for bug 3862
Revision 1.121 2005/03/28 15:04:40 peter
valid_property is only used for calln. Fields are always allowed valid_property is only used for calln. Fields are always allowed
Revision 1.120 2005/03/25 22:20:18 peter Revision 1.120 2005/03/25 22:20:18 peter