[fpc-pascal] UDF+FREEBSD+FIREBIRD

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