From f70a430b6f170703190d7d53da1706b607eaf1b0 Mon Sep 17 00:00:00 2001
From: Sven/Sarah Barth <pascaldragon@gmail.com>
Date: Mon, 4 Nov 2024 21:59:50 +0100
Subject: [PATCH] * fix compilation on systems where SizeOf(CodePointer) <>
 SizeOf(Pointer): disable ToString for tkMethod on these systems for now

---
 packages/rtl-objpas/src/inc/rtti.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index 4bb14802af..0072a75f16 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -4125,7 +4125,11 @@ begin
       else
         Result:='<Nil>';  
       end;
+    {$IF SIZEOF(POINTER) = SIZEOF(CODEPOINTER)}
+    { if CodePointer is not the same as Pointer then it currently can't be
+      passed onto a array of const }
     tkMethod: Result := Format('(method code=%p, data=%p)', [FData.FAsMethod.Code, FData.FAsMethod.Data]);
+    {$ENDIF}
   else
     result := '<unknown kind: '+GetEnumName(System.TypeInfo(TTypeKind),Ord(Kind))+'>';
   end;