[fpc-devel] Variants patch

[Florian Klaempfl]

petr.kristan at epos.cz schrieb:
> Enables inserting variants arrays into variant.

Do you have a test which shows how this works? Is this delphi
compatible? Are you sure that it is enough just to allow it?

> 
> 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;
> 
>