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

Mark sub procedure scratch as a procedure.

This commit is contained in:
asfernandes 2011-10-03 15:52:14 +00:00
parent 7c1a04ea83
commit c9a5a513d0

View File

@ -1392,7 +1392,7 @@ DeclareSubProcNode* DeclareSubProcNode::dsqlPass(DsqlCompilerScratch* dsqlScratc
blockScratch = FB_NEW(pool) DsqlCompilerScratch(pool,
dsqlScratch->getAttachment(), dsqlScratch->getTransaction(), statement);
blockScratch->clientDialect = dsqlScratch->clientDialect;
blockScratch->flags |= DsqlCompilerScratch::FLAG_SUB_ROUTINE;
blockScratch->flags |= DsqlCompilerScratch::FLAG_PROCEDURE | DsqlCompilerScratch::FLAG_SUB_ROUTINE;
dsqlBlock = dsqlBlock->dsqlPass(blockScratch);