Re: C Interface example

[artifact.one@googlemail.com]

On Feb 3, 5:48 pm, Gautier <gaut...@fakeaddress.nil> wrote:
> Looking at your code the most simple and portable way will be not to interface
> at all with C!
>
> package Vectors is
>
>    type Vector is array(Natural range <>) of Float;
>
>    procedure Add(va: in out Vector; vb: in Vector);
>
> end Vectors;
>
> package body Vectors is
>
>    procedure Add(va: in out Vector; vb: in Vector) is
>    begin
>      for i in va'Range loop
>        va(i):= va(i) + vb(i);
>      end loop;
>    end Add;
>
> end Vectors;
>
> Note that most compilers accept the spec and the body (or more!) in the same
> file with the name of your choice; GNAT requires vectors.ads and vectors.adb
> HTH

Hello.

Yes this was quite a contrived example because my real version of
vec_add()
actually calls Altivec, SSE, SSE2 or pure C code depending on detected
hardware,
which stretches on to about 300 lines. I didn't think anybody would
appreciate
reading all that just for an example on interfacing...

MC