paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 08:54:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed unused code

Browse Source
This commit is contained in:
peter 2001-02-20 18:37:10 +00:00
parent b7fcca05f8
commit 211bd33dcb
1 changed files with 14 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
compiler/ncnv.pas
View File

@ -867,45 +867,17 @@ implementation
begin begin
if is_procsym_call(left) then if is_procsym_call(left) then
begin begin
{if left.right=nil then if (tcallnode(left).symtableprocentry^.owner^.symtabletype=objectsymtable) and
begin} assigned(tcallnode(left).methodpointer) then
if (tcallnode(left).symtableprocentry^.owner^.symtabletype=objectsymtable) and hp:=genloadmethodcallnode(pprocsym(tcallnode(left).symtableprocentry),
assigned(tcallnode(left).methodpointer) then tcallnode(left).symtableproc,tcallnode(left).methodpointer.getcopy)
hp:=genloadmethodcallnode(pprocsym(tcallnode(left).symtableprocentry),
tcallnode(left).symtableproc,
tcallnode(left).methodpointer.getcopy)
else
hp:=genloadcallnode(pprocsym(tcallnode(left).symtableprocentry),
tcallnode(left).symtableproc);
firstpass(hp);
left.free;
left:=hp;
aprocdef:=pprocdef(left.resulttype);
(* end
else else
begin hp:=genloadcallnode(pprocsym(tcallnode(left).symtableprocentry),
left.right.nodetype:=loadn; tcallnode(left).symtableproc);
left.right.symtableentry:=left.right.symtableentry; firstpass(hp);
left.right.resulttype:=pvarsym(left.symtableentry)^.definition; left.free;
hp:=left.right; left:=hp;
putnode(left); aprocdef:=pprocdef(left.resulttype);
left:=hp;
{ should we do that ? }
firstpass(left);
if not is_equal(left.resulttype,resulttype) then
begin
CGMessage(type_e_mismatch);
exit;
end
else
begin
hp:=p;
p:=left;
resulttype:=hp.resulttype;
putnode(hp);
exit;
end;
end; *)
end end
else else
begin begin
@ -1219,7 +1191,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.18 2001-02-20 13:14:18 marco Revision 1.19 2001-02-20 18:37:10 peter
* removed unused code
Revision 1.18 2001/02/20 13:14:18 marco
* Fix from Peter for passing a procedure of method to a other method in a method * Fix from Peter for passing a procedure of method to a other method in a method
Revision 1.17 2001/02/08 13:09:03 jonas Revision 1.17 2001/02/08 13:09:03 jonas