[Fwd: Compile with C code...]

[Alejandro Villanueva <190921@cepsz.unizar.es>]

[-- Attachment #1: Type: text/plain, Size: 314 bytes --]



--
------------------------------------------------------
�Quieres Cobrar por Navegar en Internet?
Visita: http://www.navegana.com/dinero/flintstone.html
------------------------------------------------------
Alejandro Villanueva
190921@cepsz.unizar.es
------------------------------------------------------



[-- Attachment #2: Type: message/rfc822, Size: 2162 bytes --]

[-- Attachment #2.1.1: Type: text/plain, Size: 550 bytes --]

Hi you all,

I'm not sure if this is a good place to ask this but: how do I call an
Ada procedure from a C main program using GNAT 3.11p

I followed the user's guide instructions but didn't work !!

These are my files attached.

Thanks!

--
------------------------------------------------------
�Quieres Cobrar por Navegar en Internet?
Visita: http://www.navegana.com/dinero/flintstone.html
------------------------------------------------------
Alejandro Villanueva
190921@cepsz.unizar.es
------------------------------------------------------



[-- Attachment #2.1.2: hola.adb --]
[-- Type: text/plain, Size: 85 bytes --]

with Text_IO; use Text_IO;
procedure Hola is
begin
   Put_Line ("Hola!");
end Hola;


[-- Attachment #2.1.3: hola.ads --]
[-- Type: text/plain, Size: 54 bytes --]

procedure Hola;
pragma Export (C, Hola, "ada_hola");


[-- Attachment #2.1.4: main.c --]
[-- Type: text/plain, Size: 65 bytes --]

void main(void) {
   adainit();
   ada_hola();
   adafinal();
}