[fpc-devel] Variants patch

[petr.kristan at epos.cz]

Enables inserting variants arrays into variant.

Index: rtl/inc/variants.pp
===================================================================
--- rtl/inc/variants.pp (revision 10368)
+++ rtl/inc/variants.pp (working copy)
@@ -3166,7 +3166,7 @@
       Result:=true
     else
       begin
-        Result:=(aVarType and not(varByRef)) in [varEmpty,varNull,varSmallInt,varInteger,varSingle,varDouble,
+        Result:=(aVarType and not(varByRef) and not(varArray)) in [varEmpty,varNull,varSmallInt,varInteger,varSingle,varDouble,
           varCurrency,varDate,varOleStr,varDispatch,varError,varBoolean,
           varVariant,varUnknown,varShortInt,varByte,varWord,varLongWord,varInt64];
       end;


-- 
Ing. Petr Kristan
.
EPOS PRO s.r.o., Bozeny Nemcove 2625, 530 02 Pardubice
tel: +420 466335223    Czech Republic (Eastern Europe) 
fax: +420 466510709