From a680ccb3896af2cab1630436cc21ca01fb2bd2c6 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 28 Mar 2005 13:36:15 +0000
Subject: [PATCH]   + variants are now assigned using fpc_variant_copy

---
 compiler/nld.pas | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/compiler/nld.pas b/compiler/nld.pas
index 009a1599b9..1e45024503 100644
--- a/compiler/nld.pas
+++ b/compiler/nld.pas
@@ -681,6 +681,20 @@ implementation
            right:=nil;
            exit;
          end;
+        { call helpers for variant, they can contain non ref. counted types like
+          vararrays which must be really copied }
+        if left.resulttype.def.deftype=variantdef then
+         begin
+           hp:=ccallparanode.create(ctypeconvnode.create_internal(
+                 caddrnode.create_internal(right),voidpointertype),
+               ccallparanode.create(ctypeconvnode.create_internal(
+                 caddrnode.create_internal(left),voidpointertype),
+               nil));
+           result:=ccallnode.createintern('fpc_variant_copy',hp);
+           left:=nil;
+           right:=nil;
+           exit;
+         end;
 
         { check if local proc/func is assigned to procvar }
         if right.resulttype.def.deftype=procvardef then
@@ -1189,7 +1203,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.147  2005-03-25 22:20:19  peter
+  Revision 1.148  2005-03-28 13:36:15  florian
+    + variants are now assigned using fpc_variant_copy
+
+  Revision 1.147  2005/03/25 22:20:19  peter
     * add hint when passing an uninitialized variable to a var parameter
 
   Revision 1.146  2005/03/18 16:41:27  peter