firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-23 04:43:03 +01:00
Code Issues

GPRE does not support packages.

Browse Source
This commit is contained in:
Adriano dos Santos Fernandes 2018-05-29 20:14:32 -03:00
parent 942d7f49f5
commit bdd496a015
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/gpre/std/gpre_meta.epp
View File

@ -1010,7 +1010,9 @@ gpre_prc* MET_get_procedure(gpre_dbb* database, const TEXT* string, const TEXT*
return procedure;
FOR(REQUEST_HANDLE database->dbb_procedure_request)
X IN RDB$PROCEDURES WITH X.RDB$PROCEDURE_ID = procedure->prc_id;
X IN RDB$PROCEDURES
WITH X.RDB$PROCEDURE_ID = procedure->prc_id AND
X.RDB$PACKAGE_NAME MISSING
for (USHORT type = 0; type < 2; type++)
{
@ -1164,6 +1166,8 @@ udf* MET_get_udf(gpre_dbb* database, const TEXT* string)
UDF_DEF IN RDB$FUNCTIONS CROSS
UDF_ARG IN RDB$FUNCTION_ARGUMENTS
WITH UDF_DEF.RDB$FUNCTION_NAME EQ name AND
UDF_DEF.RDB$PACKAGE_NAME MISSING AND
UDF_ARG.RDB$PACKAGE_NAME MISSING AND
UDF_DEF.RDB$FUNCTION_NAME EQ UDF_ARG.RDB$FUNCTION_NAME AND
UDF_DEF.RDB$RETURN_ARGUMENT != UDF_ARG.RDB$ARGUMENT_POSITION
SORTED BY DESCENDING UDF_ARG.RDB$ARGUMENT_POSITION;
@ -1382,6 +1386,7 @@ void MET_load_hash_table(gpre_dbb* database)
FOR(REQUEST_HANDLE handle)
X IN RDB$PROCEDURES
WITH X.RDB$PACKAGE_NAME MISSING
gpre_prc* procedure = (gpre_prc*) MSC_alloc(REL_LEN);
procedure->prc_database = database;
procedure->prc_next = database->dbb_procedures;
@ -1411,6 +1416,8 @@ void MET_load_hash_table(gpre_dbb* database)
FOR(REQUEST_HANDLE handle)
FUN IN RDB$FUNCTIONS CROSS ARG IN RDB$FUNCTION_ARGUMENTS WITH
FUN.RDB$FUNCTION_NAME EQ ARG.RDB$FUNCTION_NAME AND
FUN.RDB$PACKAGE_NAME MISSING AND
ARG.RDB$PACKAGE_NAME MISSING AND
FUN.RDB$RETURN_ARGUMENT EQ ARG.RDB$ARGUMENT_POSITION
p = FUN.RDB$FUNCTION_NAME;
length = fb_utils::name_length(p);
@ -1446,6 +1453,7 @@ void MET_load_hash_table(gpre_dbb* database)
COLL.RDB$COLLATION_NAME EQ CS.RDB$DEFAULT_COLLATE_NAME AND
V4ARG.RDB$CHARACTER_SET_ID NOT MISSING AND
V4ARG.RDB$FUNCTION_NAME EQ ARG.RDB$FUNCTION_NAME AND
V4ARG.RDB$PACKAGE_NAME MISSING AND
V4ARG.RDB$ARGUMENT_POSITION EQ ARG.RDB$ARGUMENT_POSITION;
an_udf->udf_charset_id = V4ARG.RDB$CHARACTER_SET_ID;