Как мне отследить файл XS .so? - PullRequest
Новая
       56

Как мне отследить файл XS .so?

0 голосов
/ 01 июня 2018

У меня есть небольшая программа на Perl.Программа загружает модуль.Модуль загружает файл .so с помощью XSLoader .Этот Perl работает в Linux и построен с использованием gcc и -DDEBUGGING, а затем и файла .so.Я могу перекомпилировать.

Когда исполняется программа Perl, как мне отследить функции C в файле .so?Мне нужно знать имена функций в порядке их запуска.Было бы неплохо иметь аргументы функции тоже.

1 Ответ

0 голосов
/ 03 июня 2018

Вот пример использования gdb для входа в общую библиотеку.Я использую Linux (Ubuntu 18.04).

Сначала я установил отладочную версию Perl, используя perlbrew: 

perlbrew install perl-5.26.2 --as=5.26.2d -DDEBUGGING
perlbrew use 5.26.2d

Затем я создал в папке общую библиотеку (сокращенную до минимального содержимого для тестирования) /home/hakon/mylib:

mylib.c

Эта функция адаптирована из примера 3 в perlxstut: 

#include <math.h>
#include "myclib.h"
double my_clib_function( double arg ) {
    if (arg > 0.0) {
        arg = floor(arg + 0.5);
    } else if (arg < 0.0) {
        arg = ceil(arg - 0.5);
    } else {
        arg = 0.0;
    }
    return arg;
}

myclib.h : 

double my_clib_function( double arg );

Затем я создал общую библиотеку libmylib.so: 

gcc -g -c -fpic mylib.c
gcc -g -shared -o libmylib.so mylib.o

Обратите внимание, что мы включили символы отладки в libmylib.soустановив переключатель -g в gcc.

Теперь мы можем создать файл .xs, который будет вызывать функцию общей библиотеки (в папке /home/hakon/myxstest):

Mytest.xs 

#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "myclib.h"

MODULE = Mytest     PACKAGE = Mytest        

void
wrapper(arg)
        double  arg
    CODE:
        arg = my_clib_function( arg);
    OUTPUT:
        arg

Затем нам необходимо связать XS-файл с именем пакета Perl:

lib / Mytest.pm : 

package Mytest;
use 5.022001;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw() ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();
our $VERSION = '0.01';

require XSLoader;
XSLoader::load('Mytest', $VERSION);

Далее нам понадобится система сборки, такая как ExtUtils::MakeMaker для компиляции файла XS (в другую общую библиотеку):

Makefile.PL : 

use 5.022001;
use ExtUtils::MakeMaker;
my $lib_dir = '/home/hakon/mylib';
WriteMakefile(
    NAME              => 'Mytest',
    VERSION_FROM      => 'lib/Mytest.pm', 
    PREREQ_PM         => {},
    ABSTRACT_FROM     => 'lib/Mytest.pm',
    AUTHOR            => 'Håkon Hægland <xxx.yyy@gmail.com>',
    LIBS              => ["-L$lib_dir -lmylib"],
    INC               => "-I. -I$lib_dir",
    OPTIMIZE          => '-g',
);

Обратите внимание, что мы запрашиваем символы отладки (дляMytest.so совместно используемый объект) с OPTIMIZE => '-g', и мы сообщаем о местоположении другой совместно используемой библиотеки libmylib.so, используя аргумент LIBS для WriteMakefile().

Затем мы компилируем код XS:

perl Makefile.PL
make

Наконец, мы пишем небольшой тестовый Perl-скрипт:

p.pl 

#! /usr/bin/env perl
use feature qw(say);
use strict;
use warnings;
use ExtUtils::testlib;
use Mytest;

my $res = 3.5;
Mytest::wrapper( $res ); # <-- Warning: modifies $res in place !
say $res;

Мы можем знать, что запустить gdbв нашем тестовом сценарии p.pl: 

$ gdb -q --args perl p.pl
Reading symbols from perl...done.

Мы устанавливаем точку останова в строке 14 в файле XS: 

(gdb) break Mytest.xs:14
No source file named Mytest.xs.
Make breakpoint pending on future shared library load? (y or [n]) y
Breakpoint 1 (Mytest.xs:14) pending.

Затем запускаем сценарий: 

(gdb) run
Starting program: /home/hakon/perlbrew/perls/5.26.2d/bin/perl p.pl
[Thread debugging using libthread_db enabled]
Using host libthread_db library "/lib/x86_64-linux-gnu/libthread_db.so.1".
Breakpoint 1, XS_Mytest_wrapper (cv=0x555555bdc860) at Mytest.xs:14
14          arg = my_clib_function( arg);

Теперь мы остановились на той точке в файле XS, где мы будем вызывать функцию разделяемой библиотеки.Если мы хотим, мы можем проверить переданные аргументы: 

(gdb) p arg
$1 = 3.5

Затем перейдите в общую библиотеку: 

(gdb) s
my_clib_function (arg=3.5) at mylib.c:5
5       if (arg > 0.0) {

и т. Д.

...