Здравствуйте.

Обновил на сервере Firebird 2.5 64 бит на Firebird 3.0.1 64 бит
Базу перебэкапил, перекомпилировал все триггеры и процедуры.
Работает около 100 коннектов.

SuperClassic падает 1-2 раза в день с сообщением:

SRV-DELFIN Tue Oct 25 17:24:03 2016
The user defined function: UDF_POS
referencing entrypoint: dfudf_Pos
in module: tbudf
caused the fatal exception: Access violation.
The code attempted to access a virtual
address without privilege to do so.
This exception will cause the Firebird server
to terminate abnormally.


SRV-DELFIN Tue Oct 25 17:24:03 2016
The user defined function: UDF_POS
referencing entrypoint: dfudf_Pos
in module: tbudf
caused the fatal exception: Access violation.
The code attempted to access a virtual
address without privilege to do so.
This exception will cause the Firebird server
to terminate abnormally.

---------------------
SRV-DELFIN Fri Oct 28 08:59:28 2016
The user defined function: UDF_FORMATFLOAT
referencing entrypoint: dfudf_FormatFloat
in module: tbudf
caused the fatal exception: Access violation.
The code attempted to access a virtual
address without privilege to do so.
This exception will cause the Firebird server
to terminate abnormally.


SRV-DELFIN Fri Oct 28 08:59:28 2016
The user defined function: UDF_FORMATFLOAT
referencing entrypoint: dfudf_FormatFloat
in module: tbudf
caused the fatal exception: Access violation.
The code attempted to access a virtual
address without privilege to do so.
This exception will cause the Firebird server
to terminate abnormally.

Поменял архитектуру на Classic - все работает нормально уже неделю

В чем может быть причина?

1. UDF в 2.5 работала много лет на всех вариантов архитектуры сервера, ошибки не было.
2. На 3.0.1 Classic работает
3. udf_pos, наверно, самая простая из наших udf

Вот так объявлена

DECLARE EXTERNAL FUNCTION UDF_POS
CSTRING(254),
CSTRING(254)
RETURNS INTEGER BY VALUE
ENTRY_POINT 'dfudf_Pos' MODULE_NAME 'tbudf';

Вот такой код проекта на Delphi XE 5

function dfudf_Pos(Sub, Str: PChar): integer; cdecl; export;
begin
Result := Pos(Sub, Str);
end;

>Никакого же смысла нет. Используй суперсервер.
Для этого и затеяли обновление, но так как до этого работал 2.5 суперклассик, я решил менять все постепенно.
После обновления сервера на 3.0.1, пользователи стали жаловаться на разрыв коннекта.
Решил попробовать временно на классик (так как он не всех отключает при возникновении) что бы иметь время решить проблему не откатываясь на 2.5. Оказалось что на классик работает без ошибок.

udf кривые - это понятно.
А где можно найти информацию о том как правильно разрабатывать UDF для Firebird 3?
Мы много лет назад сделали собственную dll по примеру проекта TBUDF с http://www.ibase.ru/d_udf/
Для Linux собирали на FreePascal для Win на Delphi

Это вообще не аргумент. В firebird.log -аргумент
Есть firebird.log за 1.5 года, там нет ни одной ошибки с udf и больше года нет с "terminated abnormally"

Прошу прощения, не тот исходный код привел (а из старой dll собранной на Delphi 7)

В новой dll вот такой код

IsMultithreaded := true
А вот этого как раз и не было!!!!!
Спасибо за помощь.
Переделаем и проверим, теперь знаем как правильно теcтировать :)

kdvВ общем, для win1251 я бы рекомендовал использовать неюникодные Дельфи
Неюникодные Дельфи умеют собирать 64 битные dll?