Re: Shared library in Ada

[Sebastien <seb.morand@gmail.com>]

> Yes I'm running Gnat on FreeBSD.
> Thanks about this link, I didn't know.

I follow the instruction and did the sample thing:

Lib:
::::::::::::::
lib/mylib.adb
::::::::::::::
with Ada.Text_IO; use Ada.Text_IO;

package body MyLib is
         procedure Print is
         begin
                 Put_Line("The lib");
         end Print;
end MyLib;
::::::::::::::
lib/mylib.ads
::::::::::::::
package MyLib is

         procedure Print;
         pragma Export (Convention => C, Entity => Print, External_Name 
=> "Print");
end MyLib;

::::::::::::::
main.adb
::::::::::::::
with MyLib; use MyLib;

procedure Main is
begin
         Print;
end Main;
::::::::::::::
mylib.ads
::::::::::::::
package MyLib is

         procedure Print;
         pragma Import (Convention => C, Entity => Print, External_Name 
=> "Print");
end MyLib;
::::::::::::::
main.gpr
::::::::::::::
Project Main is
         for Externally_Built use "true";
         for Source_Files use ("main.adb");
         pragma Linker_Options ("-lmylib");
end Main;

I compile the lib using:
gcc-4.1 -g3 -c mylib.adb
and link:
gcc-4.1 -shared -g3 -o ../libmylib.so mylib.o
I compile the main program using
gcc-4.1 -g3 -c mylib.ads
gcc-4.1 -g3 -c mylib.adb
and link:
gnatbind -x main.ali
gnatlink main.ali -lmylib

I got the following error:
# ./main

raised ADA.IO_EXCEPTIONS.STATUS_ERROR : s-fileio.adb:187

If I don't use shared object I got the program working, what am I missing?

Sebastien