Re: STORAGE_ERROR : EXCEPTION_STACK_OVERFLOW

["andrew.carroll@okstate.edu" <andrew.carroll@okstate.edu>]

On Apr 2, 3:45 pm, Simon Wright <simon.j.wri...@mac.com> wrote:
> I've just spent over half an hour getting this to compile (hint: use
> zip
I am not sure how to add an attachment to google groups...

> I notice that in attribute_types.adb, you have
>
>     procedure to_disc (fout: file_type; item: in out booleanattribute)
> is
>     begin
>         item.byte_start := Integer'val (Index (fout));
>         item.byte_end := Integer'val (Index (fout)) +
> (booleanattribute'size / 8) - 7;
>         booleanattribute'class'output(Stream(fout), item);
>     end to_disc;
>
> which looks wrong;
>
> (a) the calculation of byte_end ought to say (foo'size + 7) / 8; but
> it's irrelevant, because
I could take byte_end and byte_start out.  They are not really needed.


> Could you work out where the record is in the disk file by noting the
> file position before and after the read?
I could do this but then I would have to write to disc twice.  I would
not have a correct value for byte_end until AFTER the object was
written to the file.  Then, to actually store the correct value of
byte_end in the file I would have to set_index to byte_start again and
write it again so that byte_end would be recorded as well.

Probably better for me to remove these entirely.  I had plans for them
originally but deadlines are squeezing out features faster than I can
code.