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

* fix from Peter to avoid excessive number of warnings

Browse Source
This commit is contained in:
Jonas Maebe 2001-05-08 08:52:05 +00:00
parent 2df1946617
commit bec0f51212
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
compiler/htypechk.pas
View File

@ -356,31 +356,28 @@ implementation
begin
CGMessage(parser_e_operator_not_overloaded);
ht.free;
{ the original t t will be released by firstpass! (JM) }
t := t.getcopy;
end
else
begin
inc(tcallnode(ht).symtableprocentry.refs);
{ we need copies, because the originals will be destroyed when we give a }
{ changed node back to firstpass! (JM) }
if assigned(tbinarynode(t).left) then
if assigned(tbinarynode(t).right) then
tcallnode(ht).left :=
ccallparanode.create(tbinarynode(t).right.getcopy,
ccallparanode.create(tbinarynode(t).left.getcopy,nil))
else
tcallnode(ht).left :=
ccallparanode.create(nil,
ccallparanode.create(tbinarynode(t).left.getcopy,nil))
else if assigned(tbinarynode(t).right) then
tcallnode(ht).left :=
ccallparanode.create(tbinarynode(t).right.getcopy,
ccallparanode.create(nil,nil));
if t.nodetype=unequaln then
ht:=cnotnode.create(ht);
t:=ht;
isbinaryoverloaded:=false;
exit;
end;
inc(tcallnode(ht).symtableprocentry.refs);
{ we need copies, because the originals will be destroyed when we give a }
{ changed node back to firstpass! (JM) }
if assigned(tbinarynode(t).left) then
if assigned(tbinarynode(t).right) then
tcallnode(ht).left :=
ccallparanode.create(tbinarynode(t).right.getcopy,
ccallparanode.create(tbinarynode(t).left.getcopy,nil))
else
tcallnode(ht).left :=
ccallparanode.create(nil,
ccallparanode.create(tbinarynode(t).left.getcopy,nil))
else if assigned(tbinarynode(t).right) then
tcallnode(ht).left :=
ccallparanode.create(tbinarynode(t).right.getcopy,
ccallparanode.create(nil,nil));
if t.nodetype=unequaln then
ht:=cnotnode.create(ht);
t:=ht;
end;
end;
@ -923,7 +920,10 @@ implementation
end.
{
$Log$
Revision 1.25 2001-04-22 22:46:49 florian
Revision 1.26 2001-05-08 08:52:05 jonas
* fix from Peter to avoid excessive number of warnings
Revision 1.25 2001/04/22 22:46:49 florian
* more variant support
Revision 1.24 2001/04/13 01:22:08 peter