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

* docompare -> isequal

Browse Source 
git-svn-id: trunk@6831 -
This commit is contained in:
Jonas Maebe 2007-03-13 21:56:41 +00:00
parent cb16e8d3d0
commit 0f546da041
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/optcse.pas
View File

@ -212,7 +212,7 @@ unit optcse;
j:=i+1; j:=i+1;
{ collect equal nodes } { collect equal nodes }
while (j<=nodelist.length-1) and while (j<=nodelist.length-1) and
nodelist[i].docompare(nodelist[j]) do nodelist[i].isequal(nodelist[j]) do
inc(j); inc(j);
dec(j); dec(j);
if j>i then if j>i then