Fixed bug #7501 : Precision of standalone unit may differ from packag…

…ed one in SQL dialect 1
FirebirdSQL · Mar 10, 2023 · 23f3cca · 23f3cca
1 parent fb24aa4
commit 23f3cca
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/dsql/PackageNodes.epp b/src/dsql/PackageNodes.epp
@@ -279,6 +279,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);
+
 		ddlNode->dsqlPass(itemScratch);
 	}
 
@@ -696,6 +701,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);
+
 			ddlNode->dsqlPass(itemScratch);
 		}
 	}