Конференция "FreePascal" » Error: Procedure directive "STDCALL" has conflicts [Win32]
 
  • Мистер Т (12.04.07 10:13) [0]
    имеется следующий код (участок на котором конфликт):
    Код:
    implementation

    {$IFNDEF DYNAMIC_LOAD}
     function _CreateInterface: Pointer; external LibName name 'CreateInterface'; stdcall;
    {$ELSE}
    type
     TCreateInterface = function: Pointer; stdcall;

    var
     hMGraph : HMODULE;

    procedure UnLoadLib;
    begin
     if hMGraph <> 0 then
       FreeLibrary(hMGraph);
    end;
    {$ENDIF}



    при компиляции все падает с ошибкой:
    Цитата:
    Error: Procedure directive "STDCALL" has conflicts with other directives

    При этом в interface секции тоже полно функций с stdcall; но там все отлично. Кто-нибудь сталкивался с подобным ?
    Уже всю голову сломал =(
  • Сергей М. © (12.04.07 10:23) [1]
    function _CreateInterface: Pointer; stdcall; external LibName name 'CreateInterface';
  • Мистер Т (12.04.07 10:52) [2]
    > Сергей М. ©   (12.04.07 10:23) [1]
    Спасибо, такая глупость, а "завис" на полдня (((
 
Конференция "FreePascal" » Error: Procedure directive "STDCALL" has conflicts [Win32]
Есть новые Нет новых   [134427   +38][b:0][p:0.001]