paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 02:32:51 +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;
i : longint;
j : integer;
hs : string;
begin
if (tsym(sym).typ<>procsym) then
exit;
for i:=0 to tprocsym(sym).ProcdefList.Count-1 do
begin
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
AbstractMethodsList[j]:=pd
else
AbstractMethodsList.Add(pd.procsym.name,pd);
AbstractMethodsList.Add(hs,pd);
end;
end;