From 3b27c39934b9c0399bcdcb5ba88e50d2aa6292dd Mon Sep 17 00:00:00 2001 From: svenbarth Date: Sun, 20 Aug 2017 18:31:15 +0000 Subject: [PATCH] * allow making of a TValue out of a raw interface git-svn-id: trunk@36974 - --- packages/rtl-objpas/src/inc/rtti.pp | 1 + 1 file changed, 1 insertion(+) diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp index 27995bd686..34173db2f1 100644 --- a/packages/rtl-objpas/src/inc/rtti.pp +++ b/packages/rtl-objpas/src/inc/rtti.pp @@ -557,6 +557,7 @@ begin tkRecord : result.FData.FValueData := TValueDataIntImpl.CreateCopy(ABuffer, Result.TypeData^.RecSize, ATypeInfo, False); tkClass : result.FData.FAsObject := PPointer(ABuffer)^; tkClassRef : result.FData.FAsClass := PClass(ABuffer)^; + tkInterfaceRaw : result.FData.FAsPointer := PPointer(ABuffer)^; tkInterface: result.FData.FValueData := TValueDataIntImpl.CreateRef(ABuffer, ATypeInfo, True); tkInt64 : result.FData.FAsSInt64 := PInt64(ABuffer)^; tkQWord : result.FData.FAsUInt64 := PQWord(ABuffer)^;