Re: [Comm] Динамические библиотеки в fpc

["Шенцев Алексей Владимирович" <ashen@novoross.multinex.ru>]

On Wednesday 08 June 2011 12:05:18 Rinat Bikov wrote:
> 8 июня 2011 г. 1:06 Rinat Bikov написал:
> > Здравствуйте, уважаемые!
> >
> > Можете подсказать, можно ли в динамических библиотеках FPC
> > использовать функции, описанные в заголовочных файлах C без
> > дублирования логики реализации этих функций в паскале?
> >
> > В частности, сейчас я пытаюсь использовать такую схему:
> > есть основное приложение: main, есть функция printString(const char *
> > const s), объявленная в заголовочном файле functions.h, реализация
> > логики этой функции находится в динамической библиотеке loader.so,
> > которая слинкована с main, эта динамическая библиотека сама умеет
> > загружать другие динамические библиотеки по пути к ним и вызывать в
> > загруженных библиотеках функцию run. В свою очередь из этой функции
> > run загруженные динамические библиотеки, созданные на языке C при
> > помощи gcc, умеют использовать функцию printString(const char * cons
> > s), имея только заголовочный файл functions.h.
> >
> > А как этого же результата добиться с паскалем и fpc?
> >
> > На всякий случай присылаю этот тестовый пример, он компилируется при
> > помощи команды
> > $ make run cmod pmod
> >
> > На компилирование fpc линкер ругается так:
> > /usr/bin/ld: warning: link.res contains output sections; did you forget
> > -T? /usr/bin/ld: warning: creating a DT_TEXTREL in a shared object.
> >
> > Замещать заголовочный файл functions.h пытаюсь следующим func.pas:
> > unit func;
> > interface
> > type
> >  printStringT = procedure(s:string); stdcall;
> > var
> >  printString : printStringT;
> > implementation
> > exports
> >  printString;
> > end.
> >
> > Но после компиляции выходит:
> > $ nm func.o
> > 00000004 D INIT_FUNC_PRINTSTRINGT
> > 00000014 D RTTI_FUNC_PRINTSTRINGT
> > 00000000 D THREADVARLIST_FUNC
> > 00000000 B U_FUNC_PRINTSTRING
> > $ nm lib.o
> >         U _GLOBAL_OFFSET_TABLE_
> > 00000000 T __i686.get_pc_thunk.bx
> >         U printString
> > 00000000 T run
>
> В общем, я разобрался в этом вопросе. Аналог заголовочного файла выглядит
> так: unit func;
> interface
>  procedure printString(const s:string); {$IFDEF WINDOWS} stdcall;
> {$ELSE} cdecl; {$ENDIF} external name 'printString';
> implementation
> end.

Ринат, данная конструкция, {$IFDEF WINDOWS} stdcall;
{$ELSE} cdecl; {$ENDIF} , появилась в fpc-2.5, в 2.4 её ещё не было. Там 
достаточно было указать просто stdcall.
-- 
С уважением, системный администратор
ООО "Новая Россия - КТВ"
Шенцев Алексей Владимирович.
Тел.: (8617) 716-526 доп.114