Обнаружилась проблема с перекомпиляцией пакета при некотором сочетании вложенных функций.
Firebird 4 текущий снапшот (на предыдущих было так же), IBExpert 2021.3.29.1
Удалось сделать простой пример, воспроизводится всегда.
Пакет:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
SET TERM ^ ;
CREATE OR ALTER PACKAGE USR_PKG_TEST
AS
begin
function get_usr_name()
returns varchar(30);
function get_usr_id()
returns numeric;
procedure create_usr(p_user_name varchar(30))
returns (p_id numeric);
end^
RECREATE PACKAGE BODY USR_PKG_TEST
AS
begin
function get_usr_name()
returns varchar(30)
as
begin
return 'TEST_USER';
end
function get_usr_id()
returns numeric
as
declare variable v_sess_usr_name varchar(30);
begin
v_sess_usr_name = get_usr_name(); -- Здесь хоть с именем пакета, хоть без имени пакета,
-- ошибки при перекомпиляции в редакторе пакетов нет
-- ...
return 123;
end
procedure create_usr(p_user_name varchar(30))
returns (p_id numeric)
as
declare variable v_sess_usr_id numeric;
begin
v_sess_usr_id = USR_PKG_TEST.get_usr_id(); -- Если здесь имя данного пакета, или функция вызывается без имени пакета,
-- то на второй перекомпиляции пакета в редакторе пакетов происходит ошибка,
-- приводящая к закрытию соединения с БД.
-- Если здесь имя другого пакета с такой же функцией (например, просто копия этого пакета),
-- то пакет можно перекомпилировать много раз, ошибки при перекомпиляции нет
-- ...
end
end
^
SET TERM ; ^
Первая компиляция в редакторе пакетов происходит успешно,
при повторной перекомпиляции пакета происходит ошибка, приводящая к закрытию соединения с БД:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Error Message:
----------------------------------------
Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements.
Error reading data from the connection.
-------------------------------------------------------------------------------------------------------------
SQLCODE: -902
SQLSTATE: 08006
GDSCODE: 335544726
Connection will be closed immediately.
[0054827B] FIB.IBError (Line 588, "FIB.pas" + 82) + $2
[00545771] FIBDatabase.TFIBTransaction.StartTransaction (Line 2953, "FIBDatabase.pas" + 62) + $C
[0110FA82] IBEDatabases.TIBEDatabase.GetMaxRdbFormat (Line 9599, "IBEDatabases.pas" + 14) + $5
[00FF72D9] Main.UpdateMaxRdbFormat (Line 5919, "Main.pas" + 4) + $B
[00EF146C] CompileForm.ExecuteSequence (Line 458, "CompileForm.pas" + 80) + $0
[00E5AEB8] PackageEditorF.TPackageEditorForm.Compile (Line 495, "PackageEditorF.pas" + 121) + $26
После этого соединение с БД закрывается, и нет возможности сохранить пакет, при перекомпиляции которого произошла ошибка.
В Script Executive пакет можно пересоздавать множество раз, ошибки не происходит.
