Re[8]: [fpc-pascal] UDF+FREEBSD+FIREBIRD FPC generate wrong object file???

2008-11-17 Thread Michael Van Canneyt
On Sun, 16 Nov 2008, KES wrote: > 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 symbo

Re[8]: [fpc-pascal] UDF+FREEBSD+FIREBIRD FPC generate wrong object file???

2008-11-16 Thread KES
Здравствуйте, 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

Re[7]: [fpc-pascal] UDF+FREEBSD+FIREBIRD FPC generate wrong object file???

2008-11-16 Thread KES
Здравствуйте, Michael. Вы писали 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

Re: Re[6]: [fpc-pascal] UDF+FREEBSD+FIREBIRD FPC generate wrong object file???

2008-11-15 Thread Marco van de Voort
In our previous episode, Michael Van Canneyt said: > home: >gcc -ldl testl.c > home: >./a.out > loading library failed testudf.so: cannot open shared object file: No such > file or directory (skip the -ldl, it is a linuxism) ___ fpc-pascal maillist -

Re[6]: [fpc-pascal] UDF+FREEBSD+FIREBIRD FPC generate wrong object file???

2008-11-15 Thread Michael Van Canneyt
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

Re[6]: [fpc-pascal] UDF+FREEBSD+FIREBIRD FPC generate wrong object file???

2008-11-15 Thread KES
Здравствуйте, 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 >> >> >> CO

Re[5]: [fpc-pascal] UDF+FREEBSD+FIREBIRD FPC generate wrong object file???

2008-11-15 Thread Michael Van Canneyt
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??? Not necessarily. Please try to lo

Re[5]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-15 Thread KES
Здравствуйте Lets try all from beginning 1. Test how firebird recognize libxxx and xxx and xxx.so libraries (because of C variant of UDF works I will try gcc) a) source file: extern int c_test(); int c_test() { return 8; } -- С уважением, KES mailto:[EMAIL PROTECTED

Re[5]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-15 Thread KES
Здравствуйте, Michael. Вы писали 15 ноября 2008 г., 12:23:55: MVC> On Sat, 15 Nov 2008, KES wrote: >> Здравствуйте, Michael. >> >> Вы писали 15 ноября 2008 г., 2:52:48: >> >> >> >> MVC> On Sat, 15 Nov 2008, KES wrote: >> >> >> Здравствуйте, Michael. >> >> MVC> Zdravstvuyte... >> >> >> >

Re: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-15 Thread Stephano
KES wrote: #ld -shared -soname libtkes2.so.1 -o libtkes2.so.1.0 -lc tkes2.o #cp tkes2.so /usr/local/libexec/firebird/udf/ #cp tkes2.so.1.0 /usr/local/libexec/firebird/udf/ #cd /usr/local/libexec/firebird/udf/ #ls -l Is the above used in a script? If yes, then it is linking into libtkes2.so, bu

Re[2]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-15 Thread KES
Здравствуйте, Stephano. Вы писали 15 ноября 2008 г., 9:52:09: S> KES wrote: >> library tkes2; >> >> {$mode objfpc} >> {$PACKRECORDS C} >> >> >> function somefn: integer; cdecl; export; >> begin >> somefn:= 3; >> end; >> >> exports >> //I do not do as: >> // somefn name 'somefn'; // because

Re[4]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-15 Thread Michael Van Canneyt
On Sat, 15 Nov 2008, KES wrote: > Здравствуйте, Michael. > > Вы писали 15 ноября 2008 г., 2:52:48: > > > > MVC> On Sat, 15 Nov 2008, KES wrote: > > >> Здравствуйте, Michael. > > MVC> Zdravstvuyte... > > >> >> I have tryied my example to compile in Delphi. Then I use DLL in > >> >> FireBir

Re: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-14 Thread Stephano
KES wrote: library tkes2; {$mode objfpc} {$PACKRECORDS C} function somefn: integer; cdecl; export; begin somefn:= 3; end; exports //I do not do as: // somefn name 'somefn'; // because of this cause error tkes2(17,1) Error: Asm: Duplicate label somefn //so I do as: somefn name '_somefn'

Re[4]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-14 Thread KES
Здравствуйте, Michael. Вы писали 15 ноября 2008 г., 2:52:48: MVC> On Sat, 15 Nov 2008, KES wrote: >> Здравствуйте, Michael. MVC> Zdravstvuyte... >> >> I have tryied my example to compile in Delphi. Then I use DLL in >> >> FireBird on Win32. All works fine. So my source file is good >> >> and

Re[3]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-14 Thread Michael Van Canneyt
On Sat, 15 Nov 2008, KES wrote: > Здравствуйте, Michael. Zdravstvuyte... > >> I have tryied my example to compile in Delphi. Then I use DLL in > >> FireBird on Win32. All works fine. So my source file is good > >> and therefore FreePascal can not compile shared library that can be > >> recogni

Re[3]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-14 Thread KES
Здравствуйте, Michael. Вы писали 15 ноября 2008 г., 0:10:13: MVC> On Fri, 14 Nov 2008, KES wrote: >> Здравствуйте, Marc. >> >> Вы писали 13 ноября 2008 г., 21:43:38: >> >> MS> Am Donnerstag, den 13.11.2008, 18:59 +0200 schrieb KES: >> >> Здравствуйте, Marc. >> >> >> >> Вы писали 12 ноября 2

Re[2]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-14 Thread Michael Van Canneyt
On Fri, 14 Nov 2008, KES wrote: > Здравствуйте, Marc. > > Вы писали 13 ноября 2008 г., 21:43:38: > > MS> Am Donnerstag, den 13.11.2008, 18:59 +0200 schrieb KES: > >> Здравствуйте, Marc. > >> > >> Вы писали 12 ноября 2008 г., 23:12:43: > > > >> MS> Then I'd say the fault is clearly on the fi

Re[2]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-14 Thread KES
Здравствуйте, Marc. Вы писали 13 ноября 2008 г., 21:43:38: MS> Am Donnerstag, den 13.11.2008, 18:59 +0200 schrieb KES: >> Здравствуйте, Marc. >> >> Вы писали 12 ноября 2008 г., 23:12:43: >> MS> Then I'd say the fault is clearly on the firebird side. >> >> MS> One last thing I'd try is to use

Re[2]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-14 Thread KES
Здравствуйте, Marc. Вы писали 13 ноября 2008 г., 21:43:38: MS> Am Donnerstag, den 13.11.2008, 18:59 +0200 schrieb KES: >> Здравствуйте, Marc. >> >> Вы писали 12 ноября 2008 г., 23:12:43: >> MS> Then I'd say the fault is clearly on the firebird side. >> >> MS> One last thing I'd try is to use

Re: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-13 Thread Marc Santhoff
Am Donnerstag, den 13.11.2008, 18:59 +0200 schrieb KES: > Здравствуйте, Marc. > > Вы писали 12 ноября 2008 г., 23:12:43: > MS> Then I'd say the fault is clearly on the firebird side. > > MS> One last thing I'd try is to use another name (like with ld: using > MS> -lmine is searching for "libmin

Re[4]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-13 Thread KES
Здравствуйте, Marc. Вы писали 12 ноября 2008 г., 23:12:43: MS> Am Mittwoch, den 12.11.2008, 22:55 +0200 schrieb KES: >> Здравствуйте, Marc. >> >> Вы писали 12 ноября 2008 г., 22:13:32: >> >> MS> Another observation: >> >> MS> In any case you get the error message: >> >> >> function FNTEST2 is

Re: Re[2]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-12 Thread Marc Santhoff
Am Mittwoch, den 12.11.2008, 22:55 +0200 schrieb KES: > Здравствуйте, Marc. > > Вы писали 12 ноября 2008 г., 22:13:32: > > MS> Another observation: > > MS> In any case you get the error message: > > >> function FNTEST2 is not defined > >> module name or entrypoint could not be found > > MS> If

Re[2]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-12 Thread KES
Здравствуйте, Marc. Вы писали 12 ноября 2008 г., 22:13:32: MS> Another observation: MS> In any case you get the error message: >> function FNTEST2 is not defined >> module name or entrypoint could not be found MS> If the function name is there and written correctly, make sure the MS> module (=

Re: Re[4]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-12 Thread Marc Santhoff
Am Mittwoch, den 12.11.2008, 21:40 +0200 schrieb KES: > Здравствуйте, Marc. > > Вы писали 12 ноября 2008 г., 21:20:23: > > MS> Am Mittwoch, den 12.11.2008, 20:00 +0100 schrieb Marc Santhoff: > >> Am Mittwoch, den 12.11.2008, 20:02 +0200 schrieb KES: > >> > I have tryed in C: > >> > > >> > extern

Re: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-12 Thread Marc Santhoff
Another observation: In any case you get the error message: > function FNTEST2 is not defined > module name or entrypoint could not be found If the function name is there and written correctly, make sure the module (= your library) is found. I'm not used to making UDFs, but somehow the search pa

Re[4]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-12 Thread KES
Здравствуйте, Marc. Вы писали 12 ноября 2008 г., 21:20:23: MS> Am Mittwoch, den 12.11.2008, 20:00 +0100 schrieb Marc Santhoff: >> Am Mittwoch, den 12.11.2008, 20:02 +0200 schrieb KES: >> > I have tryed in C: >> > >> > extern int fntest(); >> > >> > int fntest() >> > { >> > return 8; >> > } >> >

Re[4]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-12 Thread KES
Здравствуйте, Marc. Вы писали 12 ноября 2008 г., 21:20:23: MS> Am Mittwoch, den 12.11.2008, 20:00 +0100 schrieb Marc Santhoff: >> Am Mittwoch, den 12.11.2008, 20:02 +0200 schrieb KES: >> > I have tryed in C: >> > >> > extern int fntest(); >> > >> > int fntest() >> > { >> > return 8; >> > } >> >

Re: Re[2]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-12 Thread Marc Santhoff
Am Mittwoch, den 12.11.2008, 20:00 +0100 schrieb Marc Santhoff: > Am Mittwoch, den 12.11.2008, 20:02 +0200 schrieb KES: > > I have tryed in C: > > > > extern int fntest(); > > > > int fntest() > > { > > return 8; > > } > > > > this work, but fpc does not ((( > > Maybe looking at the .o with nm

Re: Re[2]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-12 Thread Marc Santhoff
Am Mittwoch, den 12.11.2008, 20:02 +0200 schrieb KES: > I have tryed in C: > > extern int fntest(); > > int fntest() > { > return 8; > } > > this work, but fpc does not ((( Maybe looking at the .o with nm helps to show you how the function name is mangled. Or use "fpc -s ..." and "gcc -S -fver

Re[2]: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-12 Thread KES
Здравствуйте, Jon. No, I just trying to write UDF in FPC on FreeBSD platform. this is my first try, there is no any 'uses'; I have tryed in C: extern int fntest(); int fntest() { return 8; } this work, but fpc does not ((( I need fpc because of I have many functions in delphi on Win32 platform

Re: [fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-12 Thread Jon
Should there be a 'uses' line somewhere? > > library tkes2; > > {$mode objfpc} > {$PACKRECORDS C} > > > function somefn: integer; cdecl; export; > begin > somefn:= 3; > end; > > exports > //I do not do as: > // somefn name 'somefn'; // because of this cause > error tkes2(17,1) Error: Asm:

[fpc-pascal] UDF+FREEBSD+FIREBIRD

2008-11-11 Thread KES
library tkes2; {$mode objfpc} {$PACKRECORDS C} function somefn: integer; cdecl; export; begin somefn:= 3; end; exports //I do not do as: // somefn name 'somefn'; // because of this cause error tkes2(17,1) Error: Asm: Duplicate label somefn //so I do as: somefn name '_somefn'; end. #fpc