Загрузка общих объектов Ada в Perl с помощью DynaLoader.pm

Долгое время слушатель, впервые звонящий. Я'Я знаю, что это несколько неясный вопрос, и нене ожидайте слишком многого. :-)

У меня есть следующие файлы 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;

И скомпилируйте их в общий объект, например так:

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

Это хорошо компилируется.nm показывает следующие символы:

$ 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

Теперь я пытаюсь загрузить этот общий объект в Perl:

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

Но это бомбы со следующим сообщением:

./libgreeter.so: неопределенный символ: __gnat_eh_personality at ./greeter.pl строка 26.

У кого-нибудь есть намеки? Есть ли что-то лучше / проще, чем DynaLoader, который я должен использовать ??

У меня есть хранилище со всеми соответствующими файлами здесь:

https://bitbucket.org/tobyink/ada-perl-mashup

Ответы на вопрос(2)

Ваш ответ на вопрос