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

* fixed web bug #1203: class fields can be now redefined

Browse Source 
in Delphi mode though I don't like this :/
This commit is contained in:
florian 2000-12-10 14:14:51 +00:00
parent af6d5083b3
commit 5d57010458
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/symtable.pas
View File

@ -1072,7 +1072,11 @@ implementation
{ check for duplicate field id in inherited classes }
if (sym^.typ=varsym) and
(symtabletype=objectsymtable) and
assigned(defowner) then
assigned(defowner) and
(
not(m_delphi in aktmodeswitches) or
is_object(defowner)
) then
begin
hsym:=search_class_member(pobjectdef(defowner),sym^.name);
{ but private ids can be reused }
@ -2364,7 +2368,11 @@ implementation
end.
{
$Log$
Revision 1.19 2000-11-30 22:16:49 florian
Revision 1.20 2000-12-10 14:14:51 florian
* fixed web bug 1203: class fields can be now redefined
in Delphi mode though I don't like this :/
Revision 1.19 2000/11/30 22:16:49 florian
* moved to i386
Revision 1.18 2000/11/29 00:30:42 florian