--- parser3/src/main/pa_pool.C	2001/03/19 17:42:16	1.14
+++ parser3/src/main/pa_pool.C	2001/09/15 13:20:22	1.21
@@ -4,18 +4,20 @@
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
 
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
-
-	$Id: pa_pool.C,v 1.14 2001/03/19 17:42:16 paf Exp $
 */
-
-#include <string.h>
+static const char *RCSId="$Id: pa_pool.C,v 1.21 2001/09/15 13:20:22 parser Exp $"; 
 
 #include "pa_pool.h"
 #include "pa_exception.h"
 
-/// \todo if(!fexception) die("Pool::fail with no exception set")
-void Pool::fail(size_t size) const {
+void Pool::fail_alloc(size_t size) const {
 	fexception->_throw(0, 0,
 		0,
 		"failed to allocate %u bytes", size);
 }
+
+void Pool::fail_register_cleanup() const {
+	fexception->_throw(0, 0,
+		0,
+		"failed to register cleanup");
+}
\ No newline at end of file