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

* allow also dup id in delphi mode in interfaces

Browse Source
This commit is contained in:
peter 2002-01-29 21:30:25 +00:00
parent cbb48e0ccd
commit 7ed7eebed9
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symtable.pas
View File

@ -1275,7 +1275,7 @@ implementation
{ delphi allows to reuse the names in a class, but not
in object (tp7 compatible) }
if not((m_delphi in aktmodeswitches) and
is_class(procinfo^._class)) then
is_class_or_interface(procinfo^._class)) then
begin
DuplicateSym(hsym);
exit;
@ -2028,7 +2028,10 @@ implementation
end.
{
$Log$
Revision 1.53 2002-01-29 19:46:00 peter
Revision 1.54 2002-01-29 21:30:25 peter
* allow also dup id in delphi mode in interfaces
Revision 1.53 2002/01/29 19:46:00 peter
* fixed recordsymtable.insert_in() for inserting variant record fields
to not used symtable.insert() because that also updates alignmentinfo
which was already set