Re: Strange problem

["Matthew Heaney" <mheaney@banet.net>]

In article <946581540.11snx@jvdsys.stuyts.nl> , jerry@jvdsys.stuyts.nl 
(Jerry van Dijk) wrote:

> In article <vhi3dsodsya.fsf@grotte.ifi.uio.no> jankr@nntp.ifi.uio.no writes:
>
> Ada:
>
>         with Interfaces.C.Strings;
>
>         procedure Demo is ...

Here's an alternative implementation that does not require the use of
heap:


        with Interfaces.C;

        procedure Demo is

           package C  renames Interfaces.C;
           use type C.size_t;

           procedure C_Func (s : C.char_array; len : C.size_t);
           pragma Import (C, C_Func, "c_func");

           Str : constant C.char_array := C.To_C ("Hello, world!");

        begin

           C_Func (Str, Str'Length - 1);

        end Demo;