From e9b8738f200167865f8c6d2d333a01243d25f9fd Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 20 Mar 2022 13:34:36 +0100
Subject: [PATCH] fcl-pasrc: clean up

---
 packages/fcl-passrc/src/pasresolver.pp | 2 --
 1 file changed, 2 deletions(-)

diff --git a/packages/fcl-passrc/src/pasresolver.pp b/packages/fcl-passrc/src/pasresolver.pp
index 338b4d6716..fcd2dd98f4 100644
--- a/packages/fcl-passrc/src/pasresolver.pp
+++ b/packages/fcl-passrc/src/pasresolver.pp
@@ -12602,9 +12602,7 @@ begin
     else
       begin
       // anonymous procedure type, e.g. "var p: procedure;"
-      writeln('AAA1 TPasResolver.AddProcedureType ',GetObjPath(El));
       DeanonymizeType(El);
-      writeln('AAA2 TPasResolver.AddProcedureType ',GetObjPath(El));
       end;
     end;
 end;