firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-24 18:03:02 +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

9
src/jrd/par.cpp
View File

@ -2029,7 +2029,14 @@ static jrd_nod* par_procedure(thread_db* tdbb, CompilerScratch* csb, SSHORT blr_
if (procedure->prc_type == prc_executable) if (procedure->prc_type == prc_executable)
{ {
error(csb, Arg::Gds(isc_illegal_prc_type) << Arg::Str(procedure->prc_name)); 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));
}
} }
jrd_nod* node = PAR_make_node(tdbb, e_prc_length); jrd_nod* node = PAR_make_node(tdbb, e_prc_length);