paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:09:14 +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 { delphi allows to reuse the names in a class, but not
in object (tp7 compatible) } in object (tp7 compatible) }
if not((m_delphi in aktmodeswitches) and if not((m_delphi in aktmodeswitches) and
is_class(procinfo^._class)) then is_class_or_interface(procinfo^._class)) then
begin begin
DuplicateSym(hsym); DuplicateSym(hsym);
exit; exit;
@ -2028,7 +2028,10 @@ implementation
end. end.
{ {
$Log$ $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 * fixed recordsymtable.insert_in() for inserting variant record fields
to not used symtable.insert() because that also updates alignmentinfo to not used symtable.insert() because that also updates alignmentinfo
which was already set which was already set