Re: Interfacing a subprogram from C.

[Jeffrey Carter <jeffrey.carter@boeing.com>]

Pedro Jose Garcia Gil wrote:
> 
> Hello.
> 
> I want to use a function in C to program in Ada95.
> 
> For example (I have included all the realized steps.):
> 
> %%%%%%%%%%%% file "pepe.c" %%%%%
> #include <stdio.h>
> void pintar(int a){
> printf("The number is : %d \n",a);
> }
> %%%%%%%%%%%%
> 
> $gcc -c pepe.c
> 
> %%%%%%%%%%% file prueba.adb %%%
> with Ada.Text_IO; use Ada.Text_IO;
> 
> procedure prueba is
>  pragma linker_options("prueba.o");

I suggest you want "pepe.o" here.

> 
>  procedure pintar(dato: integer);
>  pragma import(C,pintar,"pintar");
>  a: integer:=7;
> 
> begin
>  pintar(a);
> end prueba;
> 
> %%%%%%%%%%%%%%
> 
> $gnatmake prueba.adb
> >>>>>>>>>>>>>>>>>>>>>>>>>
> gnatbind -x prueba.ali
> gnatlink prueba.ali
> prueba.o: In function `_ada_prueba':
> prueba.o(.text+0x0): multiple definition of `_ada_prueba'
> ./prueba.o(.text+0x0): first defined here
> ./prueba.o: In function `_ada_prueba':
> ./prueba.o(.text+0x10): undefined reference to `pintar'
> prueba.o: In function `_ada_prueba':
> prueba.o(.text+0x10): undefined reference to `pintar'
> gnatmake: *** link failed.
> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
> 
> What am I doing wrong?.
> 
> It's necessary to compile with other options or include some file in
> somewhere?.
> 
> Thank you very much.
> 
> Pedro.


-- 
Jeffrey Carter