[fpc-pascal] UDF+FREEBSD+FIREBIRD

KES kes-kes at yandex.ru
Wed Nov 12 20:40:47 CET 2008


Здравствуйте, 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;
>> > }
>> > 
>> > 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 -fverbose-asm ..." on both source files
>> for comparing the labels in the generated assembler code.

MS> Oops, I meant "fpc -a ...".

MS> Marc

C file:
testudf.so: ELF 32-bit LSB shared object, Intel 80386, version 1 (FreeBSD), dyna
00001630 A _DYNAMIC
00001704 A _GLOBAL_OFFSET_TABLE_
         w _Jv_RegisterClasses
000016f4 d __CTOR_END__
000016f0 d __CTOR_LIST__
000016fc d __DTOR_END__
000016f8 d __DTOR_LIST__
0000162c r __FRAME_END__
00001700 d __JCR_END__
00001700 d __JCR_LIST__
0000171c A __bss_start
         w __cxa_finalize@@FBSD_1.0
00000550 t __do_global_ctors_aux
000004a0 t __do_global_dtors_aux
00001624 d __dso_handle
00000537 t __i686.get_pc_thunk.bx
0000171c A _edata
00001720 A _end
00000584 T _fini
0000046c T _init
0000171c b completed.4685
00000540 T fntest
00000500 t frame_dummy
00001628 d p.4683


libtkes2.so: ELF 32-bit LSB shared object, Intel 80386, version 1 (FreeBSD), dynamically linked, not stripped
         U FINALIZE$_OBJPAS
         U FPC_INITIALIZEUNITS
0000158c D FPC_RESOURCESTRINGTABLES
0000157c D FPC_THREADVARTABLES
         U INIT$_OBJPAS
         U INIT$_SYSTEM
00001564 D INITFINAL
00000530 T P$TKES2_SOMEFN$$LONGINT
00000544 T P$TKES2_main
00000544 T PASCALMAIN
         U THREADVARLIST_OBJPAS
00001560 D THREADVARLIST_P$TKES2
         U THREADVARLIST_SYSTEM
000015cc A _DYNAMIC
00001654 A _GLOBAL_OFFSET_TABLE_
00001660 A __bss_start
00001598 D __fpc_valgrind
00001594 D __heapsize
00001590 D __stklen
00001660 A _edata
00001660 A _end
00000550 T _somefn
00000530 T somefn


-- 
С уважением,
 KES                          mailto:kes-kes at yandex.ru




More information about the fpc-pascal mailing list