Здравствуйте, KES.
Вы писали 16 ноября 2008 г., 22:25:39:
K> Здравствуйте, Michael.
K> Вы писали 16 ноября 2008 г., 0:29:22:
MVC>> On Sat, 15 Nov 2008, KES wrote:
>>> Здравствуйте, Michael.
>>>
>>> Вы писали 15 ноября 2008 г., 23:28:10:
>>>
>>>
>>>
>>> MVC> On Sat, 15 Nov 2008, KES wrote:
>>>
>>> >> Здравствуйте
>>> >>
>>> >> h) select fntest() from rdb$database
>>> >> i) invalid requiest BLR at offset 60
>>> >> function FNTEST is not defined
>>> >> module name or entrypoint could not be found
>>> >>
>>> >>
>>> >> CONCLUSION: FPC generate wrong object file???
>>>
>>> MVC> Not necessarily. Please try to load the library from a plain C program.
>>>
>>> MVC> My guess is that dlopen() will return an error.
>>>
>>> MVC> Then do the same for the library with a pascal program.
>>>
>>> MVC> Michael.
>>>
>>> I do not know how to load the library from a plain C program. Can you
>>> help me?
MVC>> Something like this should do it:
home: >>>cat testl.c
MVC>> #include <dlfcn.h>
MVC>> #include <stdio.h>
MVC>> int main () {
MVC>> void * p;
MVC>> void * ps;
MVC>> p=dlopen("testudf.so",RTLD_NOW);
MVC>> if (p==NULL) {
MVC>> printf("loading library failed %s\n",dlerror());
MVC>> } else {
MVC>> printf("loading library OK\n");
MVC>> ps = dlsym(p,"fn_test");
MVC>> if (ps==NULL) {
MVC>> printf("symbol not found\n");
MVC>> } else {
MVC>> printf("Symbol found OK\n");
MVC>> }
MVC>> dlclose(p);
MVC>> }
MVC>> }
home: >>>gcc -ldl testl.c
home: >>>./a.out
MVC>> loading library failed testudf.so: cannot open shared object file: No
such file or directory
MVC>> Of course, you must correct the names.
MVC>> Michael.
K> home# ./a.out
K> loading library failed /usr/lib/libtestudf.so: Undefined symbol "main"
K> in output of nm libtetudf.so
K> I have noticed this:
K> 0001d950 t gcc2_compiled.
K> U main
K> 00039758 B operatingsystem_parameter_argc
K> "U main" what this mean??
K> Now I try your example for .so compiled by gcc
K> home# gcc -c testudf.c
K> home# gcc testudf.o -o testudf.so -shared
K> home# gcc so_load.c
K> The so_load.c file is test1.c
K> home# ./a.out
K> loading library failed Shared object "testudf.so" not found, required by
"a.out"
K> home# cp testudf.so /usr/lib
K> home# ./a.out
K> loading library OK
K> Symbol found OK
K> home#
K> Any suggestions?
some additional tests:
home# fpc -Cn testudf.pp
Target OS: FreeBSD/ELF for i386
Compiling testudf.pp
Closing script ppas.sh
11 lines compiled, 0.1 sec
home# gcc testudf.o -o libtestudf.so -shared
home# cp libtestudf.so /usr/lib
home# gcc so_load.c
home# ./a.out
loading library failed /usr/lib/libtestudf.so: Undefined symbol
"FPC_INITIALIZEUNITS"
In first case it does not found "main" in seconde FPC_INITIALIZEUNITS
Maybe I need some options?
--
С уважением,
KES mailto:[EMAIL PROTECTED]
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
