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

* implprocs requires no duplicate entries of the same procdef

Browse Source
This commit is contained in:
peter 2005-02-10 22:08:37 +00:00
parent 4637e51462
commit eae47d058b
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/symdef.pas
View File

@ -6175,13 +6175,25 @@ implementation
end; end;
procedure timplementedinterfaces.addimplproc(intfindex: longint; procdef: tprocdef); procedure timplementedinterfaces.addimplproc(intfindex: longint; procdef: tprocdef);
var
found : boolean;
i : longint;
begin begin
checkindex(intfindex); checkindex(intfindex);
with timplintfentry(finterfaces.search(intfindex)) do with timplintfentry(finterfaces.search(intfindex)) do
begin begin
if not assigned(procdefs) then if not assigned(procdefs) then
procdefs:=tindexarray.create(4); procdefs:=tindexarray.create(4);
procdefs.insert(tprocdefstore.create(procdef)); { No duplicate entries of the same procdef }
found:=false;
for i:=1 to procdefs.count do
if tprocdefstore(procdefs.search(i)).procdef=procdef then
begin
found:=true;
break;
end;
if not found then
procdefs.insert(tprocdefstore.create(procdef));
end; end;
end; end;
@ -6379,7 +6391,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.294 2005-02-02 19:02:47 florian Revision 1.295 2005-02-10 22:08:37 peter
* implprocs requires no duplicate entries of the same procdef
Revision 1.294 2005/02/02 19:02:47 florian
* type = type <procvar>; ignored * type = type <procvar>; ignored
Revision 1.293 2005/02/01 08:46:13 michael Revision 1.293 2005/02/01 08:46:13 michael