Странная ошибка Лазаруса

[BadBoyAlex]

У меня есть юнит, куда скидываю все часто используемые процедуры и функции. Привычка пришла из Delphi. Так вот, когда я попробовал Delphi - метод работы с этими процедурами

Код: Выделить всё

{stdcalls}
function GetLocalizedMessage (const ALayerName: string; const AIndex: integer): string; stdcall;

implementation

function GetLocalizedMessage (const ALayerName: string; const AIndex: integer): string;
begin
//тело функции
end;
<...>


выдаёт ошибку (хотя в Delphi срабатывало, начиная с 7-го, кончая 2010!):

Код: Выделить всё

Error: Calling convention doesn't match forward
Hint: Found declaration: GetLocalizedMessage(const AnsiString,const LongInt):AnsiString; StdCall;
Fatal: There were 1 errors compiling module, stopping


Что делать? Как можно "излечить" эту ошибку?

[Mr.Smart]

Код: Выделить всё

function GetLocalizedMessage (const ALayerName: string; const AIndex: integer): string; stdcall;

implementation

function GetLocalizedMessage (const ALayerName: string; const AIndex: integer): string; stdcall;
begin
//тело функции
end;

[zub]

должен помочь
{$MODE DELPHI}

[BadBoyAlex]

zub, спасибо большое помогло!

[and]

2BadBoyAlex: в синтаксисе FPC, в отличие от Delphi, заголовки объявления и реализации должны совпадать, т.е. нельзя опускать параметры или - как в Вашем случае - соглашения о вызове. О чём компилятор Вам честно сказал :-)