paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-12 06:50:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

* reverted r7675

Browse Source 
git-svn-id: trunk@7702 -
This commit is contained in:
florian 2007-06-17 13:17:44 +00:00
parent 663e020402
commit 72d49f3033
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/symtable.pas
View File

@ -1168,8 +1168,7 @@ 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) and (tprocdef(defowner).owner.defowner=tprocdef(defowner)._class) then
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;