paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 12:00:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Suppress warnings

Browse Source 
git-svn-id: trunk@15896 -
This commit is contained in:
pierre 2010-08-24 15:30:36 +00:00
parent 0550e2ae64
commit 74a4b4cafc
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/optcse.pas
View File

@ -165,7 +165,7 @@ unit optcse;
if tnode(plists(arg)^.nodelist[i]).isequal(n) and DFASetIn(plists(arg)^.avail,i) then
begin
{ use always the first occurence }
if ptrint(plists(arg)^.equalto[i])<>-1 then
if plists(arg)^.equalto[i]<>pointer(-1) then
plists(arg)^.equalto[plists(arg)^.nodelist.count-1]:=plists(arg)^.equalto[i]
else
plists(arg)^.equalto[plists(arg)^.nodelist.count-1]:=pointer(i);
@ -231,7 +231,7 @@ unit optcse;
for i:=0 to lists.nodelist.count-1 do
begin
{ current node used more than once? }
if ptrint(lists.refs[i])<>0 then
if assigned(lists.refs[i]) then
begin
if not(assigned(statements)) then
begin
@ -263,7 +263,7 @@ unit optcse;
{$endif csedebug}
end
{ current node reference to another node? }
else if ptrint(lists.equalto[i])<>-1 then
else if lists.equalto[i]<>pointer(-1) then
begin
{$if defined(csedebug) or defined(csestats)}
printnode(output,tnode(lists.nodelist[i]));
@ -281,7 +281,7 @@ unit optcse;
end;
{ clean up unused trees }
for i:=0 to lists.nodelist.count-1 do
if ptrint(lists.equalto[i])<>-1 then
if lists.equalto[i]<>pointer(-1) then
tnode(lists.nodelist[i]).free;
{$ifdef csedebug}
writeln('nodes: ',lists.nodelist.count);