paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 17:49:07 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

@ -1787,7 +1787,7 @@ begin
s:=[low(TTestEnum),high(TTestEnum)]; s:=[low(TTestEnum),high(TTestEnum)];
TValue.Make(@s, TypeInfo(TTestSet), value); TValue.Make(@s, TypeInfo(TTestSet), value);
CheckEquals(SizeOf(TTestSet), value.DataSize, 'Size of TTestSet differs'); CheckEquals(SizeOf(TTestSet), value.DataSize, 'Size of TTestSet differs');
p := Nil; p := Self;
TValue.Make(@p, TypeInfo(Pointer), value); TValue.Make(@p, TypeInfo(Pointer), value);
CheckEquals(SizeOf(Pointer), value.DataSize, 'Size of Pointer differs'); CheckEquals(SizeOf(Pointer), value.DataSize, 'Size of Pointer differs');
end; end;