From 6e03b24701771b77c804e1ca774d61d05ac8136c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 13 Mar 2024 18:25:27 +0100
Subject: [PATCH] * Remove debug statement

---
 packages/rtl-objpas/src/inc/rtti.pp | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index 508aa06eac..c955098467 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -4308,7 +4308,6 @@ var
   mgr: TFunctionCallManager;
   flags: TFunctionCallFlags;
   hiddenVmt : Pointer;
-  S : String;
 
 begin
   mgr := FuncCallMgr[aCallConv];
@@ -4321,8 +4320,6 @@ begin
   unhidden := 0;
   highs := 0;
   for param in aParams do begin
-    S:=Param.Name;
-    Writeln(S);
     if unhidden < Length(aArgs) then begin
       if pfArray in param.Flags then begin
         if Assigned(aArgs[unhidden].TypeInfo) and not aArgs[unhidden].IsArray and (aArgs[unhidden].Kind <> param.ParamType.TypeKind) then