Re: To_Unbounded_String and PROGRAM_ERROR

[Michal Nowak <vinnie@inetia.pl>]

On 02-02-01 at 12:06 Michal Nowikowski wrote:

>Hello
>
>I've this code:
>
>---
>Path : array(1..1500) of Unbounded_String;
>...
>for I in 1..1500 loop
>	Path(I) := To_Unbounded_String(Get_Current_Dir & Some_String);
>end loop;
>---
>
>and get sth like that
>raised PROGRAM_ERROR : a-strunb.ads:368
>
>This occure after few iterations - it depends of length of converted
>string. It looks for me that the limmit of memory is exceeded.
>Have You any idea how to cope with it?

You may handle an exception. But I suppose this is not the kind of answer
you want. 
You may also try to estimate the maximum lenght of string you want to
store and do something like this:
Path : array(1..1500) of String (1 .. Max_Length);
If you are really low on memory, this won't run also.
But, if this work, maybe not the lack of memory is the problem.
Maybe there is something in Get_Current_Dir function?

Hope this gave some help,
Mike:
-----------------------------------------
                             ____|
                             \%/ |~~\
  O                                  |
 o>>        Mike Nowak               |
 T                                   |
/ >       vinnie@inetia.pl           |
http://www.geocities.com/vinnie14pl _|__