From 774e96f8a9ff472cc47bd1a6f2c25beda6665413 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Mon, 23 Dec 2024 19:42:04 +0100
Subject: [PATCH] * Fixes after re-running test

---
 packages/rtl-objpas/src/inc/rtti.pp            | 2 --
 packages/rtl-objpas/tests/tests.rtti.value.pas | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index c38a946a03..54f55ca924 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -2860,8 +2860,6 @@ begin
     Result:=FData.FValueData.GetDataSize;
     exit;
   end;
-  if IsEmpty then 
-    exit;
   case Kind of
     tkEnumeration,
     tkBool,
diff --git a/packages/rtl-objpas/tests/tests.rtti.value.pas b/packages/rtl-objpas/tests/tests.rtti.value.pas
index 469bf124d9..1695708fb5 100644
--- a/packages/rtl-objpas/tests/tests.rtti.value.pas
+++ b/packages/rtl-objpas/tests/tests.rtti.value.pas
@@ -1787,7 +1787,7 @@ begin
   s:=[low(TTestEnum),high(TTestEnum)];
   TValue.Make(@s, TypeInfo(TTestSet), value);
   CheckEquals(SizeOf(TTestSet), value.DataSize, 'Size of TTestSet differs');
-  p := Nil;
+  p := Self;
   TValue.Make(@p, TypeInfo(Pointer), value);
   CheckEquals(SizeOf(Pointer), value.DataSize, 'Size of Pointer differs');
 end;