paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 17:09:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixes after re-running test

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-12-23 19:42:04 +01:00
parent 8834c109fa
commit 774e96f8a9
2 changed files with 1 additions and 3 deletions
packages/rtl-objpas
src/inc
rtti.pp
tests
tests.rtti.value.pas

2
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -2860,8 +2860,6 @@ begin
Result:=FData.FValueData.GetDataSize;
exit;
end;
if IsEmpty then
exit;
case Kind of
tkEnumeration,
tkBool,

2
packages/rtl-objpas/tests/tests.rtti.value.pas
View File

@ -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;