[fpc-pascal] UDF+FREEBSD+FIREBIRD

[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 that I need to port to FreeBSD


Вы писали 12 ноября 2008 г., 11:33:37:

J> 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: Duplicate label somefn
>> 
>>  //so I do as:
>>  somefn name '_somefn';
>> 
>> end.
>> 



J>       
J> _______________________________________________
J> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
J> http://lists.freepascal.org/mailman/listinfo/fpc-pascal



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