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

Eliminated one more case to have an unrestoreable database.

Browse Source
This commit is contained in:
dimitr 2010-04-14 09:57:13 +00:00
parent ebbd3c45cb
commit 09fe788339
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/jrd/par.cpp
View File

@ -2028,9 +2028,16 @@ static jrd_nod* par_procedure(thread_db* tdbb, CompilerScratch* csb, SSHORT blr_
} }
if (procedure->prc_type == prc_executable) if (procedure->prc_type == prc_executable)
{
if (tdbb->getAttachment()->att_flags & ATT_gbak_attachment)
{
warning(Arg::Gds(isc_illegal_prc_type) << Arg::Str(procedure->prc_name));
}
else
{ {
error(csb, Arg::Gds(isc_illegal_prc_type) << Arg::Str(procedure->prc_name)); error(csb, Arg::Gds(isc_illegal_prc_type) << Arg::Str(procedure->prc_name));
} }
}
jrd_nod* node = PAR_make_node(tdbb, e_prc_length); jrd_nod* node = PAR_make_node(tdbb, e_prc_length);
node->nod_type = nod_procedure; node->nod_type = nod_procedure;