[fpc-devel] VarArray bug

[petr.kristan at epos.cz]

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