paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 13:47:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

* remove unused typenode for procvar load. Don't know what happened why

Browse Source 
this code was not there already with revision 1.17.
This commit is contained in:
peter 2001-06-04 18:07:47 +00:00
parent aba4f758bf
commit cf9bf38818
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/nld.pas
View File

@ -223,9 +223,19 @@ implementation
begin
left:=cselfnode.create(tobjectdef(symtableentry.owner.defowner));
end;
{ method pointer ? }
{ process methodpointer }
if assigned(left) then
resulttypepass(left);
begin
{ if only typenode then remove }
if left.nodetype=typen then
begin
left.free;
left:=nil;
end
else
resulttypepass(left);
end;
end;
else
internalerror(200104141);
@ -757,7 +767,11 @@ begin
end.
{
$Log$
Revision 1.18 2001-06-04 11:48:01 peter
Revision 1.19 2001-06-04 18:07:47 peter
* remove unused typenode for procvar load. Don't know what happened why
this code was not there already with revision 1.17.
Revision 1.18 2001/06/04 11:48:01 peter
* better const to var checking
Revision 1.17 2001/05/19 21:19:57 peter