From 10df6ea0a2591013ffb21a64634da0aec8f35c59 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 28 Mar 2005 14:14:52 +0000
Subject: [PATCH]   * fpc_variant_get call fixed

---
 compiler/pexpr.pas | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 3dcf8c9a56..2424394bc6 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -1621,12 +1621,8 @@ implementation
                   (ctemprefnode.create(temp)),
                    ccallparanode.create(p1,
                    ccallparanode.create(
-                     ctypeconvnode.create_internal(
-                       cderefnode.create(
-                         ctypeconvnode.create_internal(ctemprefnode.create(temp),voidpointertype
-                       )
-                     ),cvarianttype),
-                     nil))));
+                       ctemprefnode.create(tempresultvariant)
+                     ,nil))));
 
                 addstatement(newstatement,ccallnode.createintern('fpc_vararray_get',paras));
                 addstatement(newstatement,ctempdeletenode.create(temp));
@@ -2623,7 +2619,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.187  2005-03-27 20:19:21  florian
+  Revision 1.188  2005-03-28 14:14:52  florian
+    * fpc_variant_get call fixed
+
+  Revision 1.187  2005/03/27 20:19:21  florian
     + compiler support for reading/writing of vararrays
 
   Revision 1.186  2005/03/25 22:20:19  peter