From 71fb15593c287776096434f338cba95698fd4786 Mon Sep 17 00:00:00 2001
From: dimitr <dimitr@users.sourceforge.net>
Date: Wed, 16 Apr 2008 15:40:49 +0000
Subject: [PATCH] Fixed CORE-1840.

---
 src/jrd/dyn.epp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/jrd/dyn.epp b/src/jrd/dyn.epp
index 617f69359b..d9432090a8 100644
--- a/src/jrd/dyn.epp
+++ b/src/jrd/dyn.epp
@@ -130,7 +130,7 @@ void DYN_ddl(Attachment* attachment, jrd_tra* transaction, USHORT length,
 
 	// Create a pool for DYN to operate in.  It will be released when
 	// the routine exits.
-	MemoryPool* tempPool = dbb->createPool();
+	MemoryPool* const tempPool = dbb->createPool();
 	Jrd::ContextPoolHolder context(tdbb, tempPool);
 
 	try {
@@ -160,8 +160,12 @@ void DYN_ddl(Attachment* attachment, jrd_tra* transaction, USHORT length,
 			}
 		}
 
+		dbb->deletePool(tempPool);
+
 		ERR_punt();
 	}
+
+	dbb->deletePool(tempPool);
 }