Re: Problem with inefficiency and records with variant parts

[deccrl!caen!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!news.sei.cmu.edu !firth@bloom-beacon.mit.edu (Robert Firth)]

In article <SIDOU.92Oct7130337@litsun.epfl.ch> sidou@litsun.epfl.ch (Dominique 
Sidou) writes:

>  procedure fillt2(v2 : in out t2) is
>  begin
>    for i in v2'range loop
>      v2(i) := 2;
>    end loop;
>  end fillt2

Change this to 

	Function Fillt2 return t2 is
	begin
	    return t2'(others => 2);
	end;

>        v := (s => 2, c2 => (others => 0)); -- useless copy to avoid !!
>        fillt1(v.c2);

and change this to

	v := (s=>2, c2=>Fillt2);

Any reasonable optimising compiler should be able to reduce this to
a single copy into the correct component of the LHS, especially as
the base type of the array is unconstrained.

Hope that helps.