De-serializing and stack sizes

["Alex R. Mosteo" <devnull@mailinator.com>]

I'm now facing a problem that I don't know how to solve. I'm going to give
some thought to it over the week-end and any ideas are welcome.

I have some objects that I want to serialize to files. For their creation I
use access types so they get created in heap and there's no problem. I
simply output them with

Item_Type'Output (Stream, Item.all);

However, you see the problem, loading them back is a no-no:

Item : constant Item_Access := new Item_Type'(Item_Type'Input (Stream));

The 'Input attribute is trying to return the object in the stack and so it
doesn't work. My items are around 20 MB in size (now, they could grow
bigger) and I'd like not to have to raise my stack to these sizes (also
making it doable from the environment task would be a plus).

Thanks in advance,

A. Mosteo.