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

* move initialization of TValue to a separate method to avoid duplicate implementations

Browse Source
This commit is contained in:
Sven/Sarah Barth 2021-12-24 13:56:34 +01:00
parent 322d91758c
commit f1059679a1
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -110,6 +110,7 @@ type
function GetTypeInfo: PTypeInfo; inline;
function GetTypeKind: TTypeKind; inline;
function GetIsEmpty: boolean; inline;
procedure Init; inline;
public
class function Empty: TValue; static;
class procedure Make(ABuffer: pointer; ATypeInfo: PTypeInfo; out result: TValue); static;
@ -1488,15 +1489,21 @@ end;
{ TValue }
procedure TValue.Init;
begin
{ resets the whole variant part; FValueData is already Nil }
{$if SizeOf(TMethod) > SizeOf(QWord)}
FData.FAsMethod.Code := Nil;
FData.FAsMethod.Data := Nil;
{$else}
FData.FAsUInt64 := 0;
{$endif}
end;
class function TValue.Empty: TValue;
begin
Result.Init;
result.FData.FTypeInfo := nil;
{$if SizeOf(TMethod) > SizeOf(QWord)}
Result.FData.FAsMethod.Code := Nil;
Result.FData.FAsMethod.Data := Nil;
{$else}
Result.FData.FAsUInt64 := 0;
{$endif}
end;
function TValue.GetTypeDataProp: PTypeData;
@ -1605,14 +1612,8 @@ type
var
td: PTypeData;
begin
result.Init;
result.FData.FTypeInfo:=ATypeInfo;
{ resets the whole variant part; FValueData is already Nil }
{$if SizeOf(TMethod) > SizeOf(QWord)}
Result.FData.FAsMethod.Code := Nil;
Result.FData.FAsMethod.Data := Nil;
{$else}
Result.FData.FAsUInt64 := 0;
{$endif}
if not Assigned(ATypeInfo) then
Exit;
{ first handle those types that need a TValueData implementation }