fcl-passrc: clean up

git-svn-id: trunk@40034 -
2025-08-18 16:29:19 +02:00 · 2018-10-25 15:24:45 +00:00 · 2018-10-25 15:24:45 +00:00 · cd34e827db
commit cd34e827db
parent c2a00fb791
1 changed files with 0 additions and 1 deletions
--- a/packages/fcl-passrc/src/pasresolver.pp
+++ b/packages/fcl-passrc/src/pasresolver.pp
@ -4132,7 +4132,6 @@ begin
    end;

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