paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* allow the buffer passed to Make() to be Nil

Browse Source 
git-svn-id: trunk@36981 -
This commit is contained in:
svenbarth 2017-08-20 19:08:57 +00:00
parent bd74f9af64
commit 0387df3228
1 changed files with 2 additions and 0 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

@ -549,6 +549,8 @@ begin
result.FData.FTypeInfo:=ATypeInfo; result.FData.FTypeInfo:=ATypeInfo;
{ resets the whole variant part; FValueData is already Nil } { resets the whole variant part; FValueData is already Nil }
Result.FData.FAsUInt64 := 0; Result.FData.FAsUInt64 := 0;
if not Assigned(ABuffer) then
Exit;
case ATypeInfo^.Kind of case ATypeInfo^.Kind of
tkSString : result.FData.FValueData := TValueDataIntImpl.CreateCopy(ABuffer, Length(PShortString(ABuffer)^) + 1, ATypeInfo, True); tkSString : result.FData.FValueData := TValueDataIntImpl.CreateCopy(ABuffer, Length(PShortString(ABuffer)^) + 1, ATypeInfo, True);
tkWString, tkWString,