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

Fixed bug #7501 : Precision of standalone unit may differ from packaged one in SQL dialect 1

Browse Source
This commit is contained in:
Vlad Khorsun 2023-03-10 21:51:34 +02:00
parent c4a9b587c0
commit dc5db45c46
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/dsql/PackageNodes.epp
View File

@ -415,6 +415,11 @@ DdlNode* CreateAlterPackageNode::dsqlPass(DsqlCompilerScratch* dsqlScratch)
itemScratch->flags |= DsqlCompilerScratch::FLAG_DDL;
itemScratch->package = name;
if (itemScratch->clientDialect > SQL_DIALECT_V5)
itemStatement->setBlrVersion(5);
else
itemStatement->setBlrVersion(4);
switch ((*items)[i].type)
{
case CreateAlterPackageNode::Item::FUNCTION:
@ -798,6 +803,11 @@ DdlNode* CreatePackageBodyNode::dsqlPass(DsqlCompilerScratch* dsqlScratch)
itemScratch->flags |= DsqlCompilerScratch::FLAG_DDL;
itemScratch->package = name;
if (itemScratch->clientDialect > SQL_DIALECT_V5)
itemStatement->setBlrVersion(5);
else
itemStatement->setBlrVersion(4);
switch ((*arrays[i])[j].type)
{
case CreateAlterPackageNode::Item::FUNCTION: