From a8167f897db169bcb68e2443b1fb5b7a0e077ce6 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sun, 20 Aug 2017 19:50:19 +0000
Subject: [PATCH] * allow making a TValue with a pointer

git-svn-id: trunk@36990 -
---
 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 c002597275..f0faac01e3 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -571,6 +571,7 @@ begin
     tkQWord    : result.FData.FAsUInt64 := PQWord(ABuffer)^;
     tkProcVar  : result.FData.FAsMethod.Code := PCodePointer(ABuffer)^;
     tkMethod   : result.FData.FAsMethod := PMethod(ABuffer)^;
+    tkPointer  : result.FData.FAsPointer := PPointer(ABuffer)^;
     tkInteger  : begin
                    case GetTypeData(ATypeInfo)^.OrdType of
                      otSByte: result.FData.FAsSByte := PShortInt(ABuffer)^;