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

+ local symbols can hide class members in delphi mode

Browse Source 
git-svn-id: trunk@7675 -
This commit is contained in:
florian 2007-06-15 21:41:55 +00:00
parent 7a99c517c4
commit 01a4737b10
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/symtable.pas
View File

@ -1168,7 +1168,8 @@ implementation
if not is_funcret_sym(sym) and if not is_funcret_sym(sym) and
(defowner.typ=procdef) and (defowner.typ=procdef) and
assigned(tprocdef(defowner)._class) and assigned(tprocdef(defowner)._class) and
(tprocdef(defowner).owner.defowner=tprocdef(defowner)._class) then (tprocdef(defowner).owner.defowner=tprocdef(defowner)._class) and
not(m_duplicate_names in current_settings.modeswitches) then
result:=tprocdef(defowner)._class.symtable.checkduplicate(hashedid,sym); result:=tprocdef(defowner)._class.symtable.checkduplicate(hashedid,sym);
end; end;