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

* allow making a TValue with a procedure/function or method variable

Browse Source 
git-svn-id: trunk@36989 -
This commit is contained in:
svenbarth 2017-08-20 19:50:00 +00:00
parent 9dff6043d9
commit e74034dc34
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -547,6 +547,7 @@ type
PBoolean64 = ^Boolean64;
PByteBool = ^ByteBool;
PQWordBool = ^QWordBool;
PMethod = ^TMethod;
begin
result.FData.FTypeInfo:=ATypeInfo;
{ resets the whole variant part; FValueData is already Nil }
@ -568,6 +569,8 @@ begin
tkInterface: result.FData.FValueData := TValueDataIntImpl.CreateRef(ABuffer, ATypeInfo, True);
tkInt64 : result.FData.FAsSInt64 := PInt64(ABuffer)^;
tkQWord : result.FData.FAsUInt64 := PQWord(ABuffer)^;
tkProcVar : result.FData.FAsMethod.Code := PCodePointer(ABuffer)^;
tkMethod : result.FData.FAsMethod := PMethod(ABuffer)^;
tkInteger : begin
case GetTypeData(ATypeInfo)^.OrdType of
otSByte: result.FData.FAsSByte := PShortInt(ABuffer)^;