From 09fe78833949514492441c5b0494c4d802bbb7c7 Mon Sep 17 00:00:00 2001
From: dimitr <dimitr@users.sourceforge.net>
Date: Wed, 14 Apr 2010 09:57:13 +0000
Subject: [PATCH] Eliminated one more case to have an unrestoreable database.

---
 src/jrd/par.cpp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/jrd/par.cpp b/src/jrd/par.cpp
index 4ba2a7055f..d2ead83fe4 100644
--- a/src/jrd/par.cpp
+++ b/src/jrd/par.cpp
@@ -2029,7 +2029,14 @@ static jrd_nod* par_procedure(thread_db* tdbb, CompilerScratch* csb, SSHORT blr_
 
 	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);