Browse Source

fcl-passrc: clean up

git-svn-id: trunk@40034 -
Mattias Gaertner 6 years ago
parent
commit
cd34e827db
1 changed files with 0 additions and 1 deletions
  1. 0 1
      packages/fcl-passrc/src/pasresolver.pp

+ 0 - 1
packages/fcl-passrc/src/pasresolver.pp

@@ -4132,7 +4132,6 @@ begin
     end;
     end;
 
 
   // El is a candidate (might be incompatible)
   // El is a candidate (might be incompatible)
-  writeln('AAA1 TPasResolver.OnFindCallElements ',Data^.Distance,' ',Distance);
   if (Data^.Found=nil)
   if (Data^.Found=nil)
       or ((Data^.Distance=cIncompatible) and (Distance<cIncompatible)) then
       or ((Data^.Distance=cIncompatible) and (Distance<cIncompatible)) then
     begin
     begin