Re: Problem where a function is invoked once but called twice (when invocation is within an allocator).

[Rod Kay <rod.kay@aulace.com>]

On May 5, 6:22 pm, Yannick Duchêne (Hibou57)
<yannick_duch...@yahoo.fr> wrote:
>
> Rod, may be you should have a look at the produced assembly ? and post an  
> excerpt here

   A good idea.

   I created a small test program ...


with media.Video;
with openGL;

procedure Tester
is
   the_Movie : media.Video.view := media.Video.new_Video ("xyz.avi");

   Case_1 :        openGL.Image := the_Movie.next_Frame;
   Case_2 : access openGL.Image := new
opengl.Image' (the_Movie.next_Frame);
begin
   null;
end;


   ... and generated the mixed ada/asm, which is here:
http://109.74.196.91:8080/doubled_next_Frame_call_results.txt


   In brief, the mixed ada/asm shows next_Frame being called twice for
Case_2 ...


****    Case_2 : access openGL.Image := new
opengl.Image' (the_Movie.next_Frame);
   ...
   call	media__video__next_frame
   ...
   call	__gnat_malloc
   ...
   call	media__video__next_frame
   ...
   call	memcpy



   Hope this helps.

regards.