Re: 'Write attribute vs Write procedure.

[Ole-Hjalmar Kristensen <oleh@vlinux.voxelvision.no>]

tmoran@acm.org writes:

> > Write (This.Link.all,
> >    Buffer (1 .. Stream_element_offset (Chunk)));
> > Stream_element_array'Write (This.Link,
> >    Buffer (1 .. Stream_element_offset (Chunk)));
> >...
> > the Write procedure is taking no noticeable amount of time/cpu.
> >In the contrary, the 'Write attribute takes like 3-4 seconds of 100% CPU
>   Perhaps Gnat's 'Write is doing one 'Write(Stream_Element) call for
> each element of the Buffer, vs a single call for the whole thing in
> the procedure version?  Since you've already got a Stream_Element_Array,
> perhaps you could call

You hit the nail on the head.

>   Ada.Streams.Write(Ada.Streams.Root_Stream_Type'class(This.Link),
>                     Buffer (1 .. Stream_element_offset (Chunk)));
> directly?
>   Personally, I think using the default 'write is only reasonable
> in the very simplest cases.  If something is big, or complicated,
> I'd write my own 'write for it.

-- 
Ole-Hj. Kristensen

******************************************************************************
* You cannot consistently believe this sentence.
******************************************************************************