ALT Linux Community general discussions
 help / color / mirror / Atom feed
* Re: [Comm] Динамические библиотеки в fpc
  @ 2011-06-08  8:16   ` Шенцев Алексей Владимирович
  0 siblings, 0 replies; only message in thread
From: Шенцев Алексей Владимирович @ 2011-06-08  8:16 UTC (permalink / raw)
  To: ALT Linux Community general discussions

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


^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2011-06-08  8:16 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-06-08  8:16   ` [Comm] Динамические библиотеки в fpc Шенцев Алексей Владимирович

ALT Linux Community general discussions

This inbox may be cloned and mirrored by anyone:

	git clone --mirror http://lore.altlinux.org/community/0 community/git/0.git

	# If you have public-inbox 1.1+ installed, you may
	# initialize and index your mirror using the following commands:
	public-inbox-init -V2 community community/ http://lore.altlinux.org/community \
		mandrake-russian@linuxteam.iplabs.ru community@lists.altlinux.org community@lists.altlinux.ru community@lists.altlinux.com
	public-inbox-index community

Example config snippet for mirrors.
Newsgroup available over NNTP:
	nntp://lore.altlinux.org/org.altlinux.lists.community


AGPL code for this site: git clone https://public-inbox.org/public-inbox.git