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

* removed debug writelns from florian's previous commit

Browse Source
This commit is contained in:
Károly Balogh 2005-02-02 02:19:42 +00:00
parent beee137eb7
commit 452de9187c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/nobj.pas
View File

@ -1087,11 +1087,9 @@ implementation
(tprocsym(sym).owner.symtabletype=objectsymtable) then (tprocsym(sym).owner.symtabletype=objectsymtable) then
search_class_overloads(tprocsym(sym)); search_class_overloads(tprocsym(sym));
writeln(proc.mangledname);
for i:=1 to tprocsym(sym).procdef_count do for i:=1 to tprocsym(sym).procdef_count do
begin begin
implprocdef:=tprocsym(sym).procdef[i]; implprocdef:=tprocsym(sym).procdef[i];
writeln(implprocdef.mangledname);
if (compare_paras(proc.paras,implprocdef.paras,cp_none,[])>=te_equal) and if (compare_paras(proc.paras,implprocdef.paras,cp_none,[])>=te_equal) and
(proc.proccalloption=implprocdef.proccalloption) and (proc.proccalloption=implprocdef.proccalloption) and
(proc.proctypeoption=implprocdef.proctypeoption) and (proc.proctypeoption=implprocdef.proctypeoption) and
@ -1370,7 +1368,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.88 2005-02-01 23:18:54 florian Revision 1.89 2005-02-02 02:19:42 karoly
* removed debug writelns from florian's previous commit
Revision 1.88 2005/02/01 23:18:54 florian
* fixed: * fixed:
r1 = record r1 = record
p : procedure stdcall; p : procedure stdcall;