Hi. If I compile this program I get error ----------------------------------------------- program pokus; uses variants;
procedure a(v: variant); begin end; var v: Variant; begin v := VarArrayCreate([0, 0], varVariant); a(v); end. ---------------------------------------------- An unhandled exception occurred at $0806418E : EVariantInvalidOpError : Invalid variant operation $0806418E VARINVALIDOP, line 2767 of ../inc/variants.pp $08064849 RAISEVAREXCEPTION, line 2878 of ../inc/variants.pp $080648FA VARRESULTCHECK, line 2903 of ../inc/variants.pp $080617A5 SYSVARCLEARPROC, line 1405 of ../inc/variants.pp $0805353F VARIANT_CLEAR, line 73 of /mnt/progs/devel/fpc/rtl/inc/variant.inc $08054C94 fpc_finalize, line 171 of /mnt/progs/devel/fpc/rtl/inc/rtti.inc $0804826E P$POKUS_finalize_implicit, line 333 of pokus.dpr $080554DF FINALIZEUNITS, line 612 of /mnt/progs/devel/fpc/rtl/inc/system.inc $08055548 INTERNALEXIT, line 635 of /mnt/progs/devel/fpc/rtl/inc/system.inc ---------------------------------------------- Linux and fpc from svn 1083. I think that problem is somewhere in fpc_finalize. But I realy do not understand to variants memory management. Helps to declare procedure a(const v: variant); But it is not a solution. Petr -- Ing. Petr Kristan . EPOS PRO s.r.o., Bozeny Nemcove 2625, 530 02 Pardubice tel: +420 466335223 Czech Republic (Eastern Europe) fax: +420 466510709 _______________________________________________ fpc-devel maillist - [email protected] http://lists.freepascal.org/mailman/listinfo/fpc-devel
