[fpc-pascal] Firebird +lin32 + fpc lib udf returns garbage.

[Jonas Maebe]

On 01 Jun 2009, at 14:39, Coco Pascal wrote:

> But if I add the following function it returns wrong results. This  
> one does refer to other code.
>
> function Y_Odd(const AValue: LongInt): LongInt; cdecl; export;
> begin
> if Odd(AValue) then
> Result := -1
> else
> Result := 0;
> end;

It doesn't anymore once it is compiled, because odd() gets inlined.


Jonas