Langzeithörer, erstmaliger Anrufer. Ich bin mir bewusst, dass dies eine etwas dunkle Frage ist und erwarte nicht zu viel. :-)

Ich habe folgende Ada-Dateien:

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;

Und kompilieren Sie sie in ein gemeinsames Objekt wie folgt:

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

Dies kompiliert gut.nm zeigt die folgenden 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

Jetzt versuche ich, dieses gemeinsam genutzte Objekt in Perl zu laden:

#!/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, $/;
}

Aber dies bombardiert mit der folgenden Meldung:

./libgreeter.so: undefined symbol: __gnat_eh_personality at ./greeter.pl line 26.

Hat jemand irgendwelche Hinweise? Gibt es etwas besseres / einfacheres als DynaLoader, das ich benutzen sollte?

Ich habe ein Repository mit allen relevanten Dateien hier: