Re: How to speed up stream & record handling?

[tmoran@acm.org]

> Data_array'Read (and thus My_Record'Read) calls Unsigned_8'Read for
> each array element individually.  Perhaps this burns a lot of CPU
  I suspect you're right.  I ran the program as given on a 750MHz Windows
system and it took 7.7 seconds.  It runs in .13 seconds with some
simple changes:

   type My_Record is
     record
        A  : Data_array; -- 200 bytes
--      BC : B_And_C;    --   2 bytes
        BC : Byte_Array(1 .. 2);
     end record;
   buffer : my_record;
   package bio is new ada.sequential_io(my_record);
   ...
  for I in 1 .. 100000 loop
    bio.read(f,buffer);
    swap(buffer.bc);
  end loop;