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

* include parameter types for checking abstract calls

Browse Source 
git-svn-id: trunk@5911 -
This commit is contained in:
peter 2007-01-11 22:23:04 +00:00
parent f3e4496ca7
commit d2c8e7429e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncal.pas
View File

@ -1359,17 +1359,19 @@ implementation
pd : tprocdef; pd : tprocdef;
i : longint; i : longint;
j : integer; j : integer;
hs : string;
begin begin
if (tsym(sym).typ<>procsym) then if (tsym(sym).typ<>procsym) then
exit; exit;
for i:=0 to tprocsym(sym).ProcdefList.Count-1 do for i:=0 to tprocsym(sym).ProcdefList.Count-1 do
begin begin
pd:=tprocdef(tprocsym(sym).ProcdefList[i]); pd:=tprocdef(tprocsym(sym).ProcdefList[i]);
j:=AbstractMethodsList.FindIndexOf(pd.procsym.name); hs:=pd.procsym.name+pd.typename_paras(false);
j:=AbstractMethodsList.FindIndexOf(hs);
if j<>-1 then if j<>-1 then
AbstractMethodsList[j]:=pd AbstractMethodsList[j]:=pd
else else
AbstractMethodsList.Add(pd.procsym.name,pd); AbstractMethodsList.Add(hs,pd);
end; end;
end; end;