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