Długo słuchający, pierwszy dzwoniący. Wiem, że jest to nieco niejasne pytanie i nie oczekuj zbyt wiele. :-)

Mam następujące pliki Ada:

greeter.ads

package Greeter is
    procedure Hello;
end Greeter;

greeter.adb

with Ada.Text_IO; use Ada.Text_IO;
package body Greeter is
    procedure Hello is
    begin
        Put_Line ("Hello, world!");
    end Hello;
end Greeter;

I skompiluj je w obiekt współdzielony, taki jak ten:

gnatmake -z -fPIC greeter.adb
gcc -shared -o libgreeter.so greeter.o

To dobrze się kompiluje.nm pokazuje następujące symbole:

$ nm -D libgreeter.so 
                 w _Jv_RegisterClasses
0000000000201028 A __bss_start
                 w __cxa_finalize
                 w __gmon_start__
                 U __gnat_eh_personality
0000000000201028 A _edata
0000000000201038 A _end
00000000000006a8 T _fini
0000000000000520 T _init
                 U ada__text_io__put_line__2
0000000000201018 D greeter_E
000000000000063c T greeter__hello

Teraz próbuję załadować ten udostępniony obiekt w Perlu:

#!/usr/bin/env perl

use 5.014;
use strict;
use warnings;

#BEGIN { $ENV{PERL_DL_DEBUG} = 1 };

package Greeter
{
    use constant ADADIR => '/usr/lib/gcc/x86_64-linux-gnu/4.4/rts-native/adalib/';
    use constant OURDIR => do { (my $f = __FILE__) =~ s{[^/]+$}//; $f || "." };

    require DynaLoader;
    our @ISA = 'DynaLoader';

    my $runtime = DynaLoader::dl_load_file(
        ADADIR.'/libgnat.so',
    ) or die DynaLoader::dl_error();

    my $gep = DynaLoader::dl_find_symbol(
        $runtime,
        '__gnat_eh_personality',
    ) or die DynaLoader::dl_error();

    my $libref = DynaLoader::dl_load_file(
        OURDIR.'/libgreeter.so',
        0x01,
    ) or die DynaLoader::dl_error();

    my $func = DynaLoader::dl_find_symbol(
        $libref,
        'greeter__hello',
    ) or die DynaLoader::dl_error();

    print $func, $/;
}

Ale to bombarduje następującą wiadomością:

./libgreeter.so: niezdefiniowany symbol: __gnat_eh_personality w ./greeter.pl linia 26.

Czy ktoś ma jakieś wskazówki? Czy jest coś lepszego / łatwiejszego niż DynaLoader, którego powinienem używać?

Mam tutaj repozytorium ze wszystkimi odpowiednimi plikami: