[firebase-br] operador "&" no Firbeird

[Andrey]

Pessoal resolvi criar uma udf em delphi mas agora na hora de compilar dá
erro... segue o código...

Source do projeto...

library gnudf;

uses
  SysUtils,
  Classes,
  Ugncudf in 'Ugncudf.pas';

{$R *.res}

exports
ugnudf;

begin
end.


Código da Unit....

unit Ugncudf;

interface
  function gncxor(var v1, v2: Integer): Integer; cdecl; export;

implementation

function gncxor(var v1, v2: Integer): Integer;
begin
  if ((v1 xor v2) = v1) then
    Result:= 1
  else
    Result:= 0;
end;

end.


código da stored procedure...


    IF (GNCXOR(v1, v2) = 1) THEN BEGIN
      [...]
    END
    ELSE BEGIN
      [...]
    END

Erro na hora de commitar....


Invalid token.
invalid request BLR at offset 316.
function GNCXOR is not defined.
module name or entrypoint could not be found.
Error while parsing procedure TESTE's BLR.



Declarei a UDF da seguinte forma...


declare external function gncxor
integer, integer
returns
integer by value
entry_point 'gncxor' module_name 'gncudf.dll';

-- 
Atenciosamente,
Andrey Lucas Herchonvicz
Programador Delphi
Pato Branco - PR

"Só sabemos com exatidão quando sabemos pouco; à medida que vamos adquirindo
conhecimento, instala-se a dúvida."