From 06601d5e6015fcde5118be97457897d7941aabc0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Mon, 26 Feb 2024 15:19:18 +0100
Subject: [PATCH] * Fix TExtendedVmtFieldEntry.GetTail

---
 rtl/objpas/typinfo.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/typinfo.pp b/rtl/objpas/typinfo.pp
index 3b790d8e2a..76c5b6b1a3 100644
--- a/rtl/objpas/typinfo.pp
+++ b/rtl/objpas/typinfo.pp
@@ -4394,7 +4394,11 @@ end;
 
 function TExtendedVmtFieldEntry.GetTail: Pointer;
 begin
-  Result := PByte(@Name) + SizeOf(Pointer);
+
+  Result := PByte(@Name) + SizeOf(Pointer) ;
+  {$ifdef PROVIDE_ATTR_TABLE}
+  Result := Result + SizeOf(Pointer) ;
+  {$ENDIF}
 end;
 
 function TExtendedVmtFieldEntry.GetVisibility: TVisibilityClass;