From 418222bc32f7ce680f4bcd94f2d6e0c26558b92a Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 12 Mar 2007 19:38:22 +0000
Subject: [PATCH] * handle interfaces et al. correctly in Set/GetOrdProp,
 resolves #8510

git-svn-id: trunk@6804 -
---
 rtl/objpas/typinfo.pp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/rtl/objpas/typinfo.pp b/rtl/objpas/typinfo.pp
index cb8cd71ceb..c92a215277 100644
--- a/rtl/objpas/typinfo.pp
+++ b/rtl/objpas/typinfo.pp
@@ -744,6 +744,9 @@ begin
   DataSize := 4;
   case TypeInfo^.Kind of
 {$ifdef cpu64}
+    tkInterface,
+    tkInterfaceRaw,
+    tkDynArray,
     tkClass:
       DataSize:=8;
 {$endif cpu64}
@@ -836,6 +839,9 @@ begin
   if PropInfo^.PropType^.Kind in [tkInt64,tkQword
   { why do we have to handle classes here, see also below? (FK) }
 {$ifdef cpu64}
+    ,tkInterface,
+    ,tkInterfaceRaw,
+    ,tkDynArray,
     ,tkClass
 {$endif cpu64}
     ] then