[fpc-devel] Variants patch

[petr.kristan at epos.cz]

On Sat, Mar 22, 2008 at 05:22:43PM +0100, Florian Klaempfl wrote:
> 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?
I tested it on our delphi application, which uses deeply nested variant
arrays. Results are the same compiled by delphi or fpc. I will continue
with testnig this week.

> > 
> > 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;
> > 
> > 
> 
> _______________________________________________
> fpc-devel maillist  -  fpc-devel at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-devel

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