--- parser3/src/main/pa_pool.C	2001/03/19 15:29:39	1.12
+++ parser3/src/main/pa_pool.C	2001/09/15 13:20:22	1.21
@@ -1,19 +1,23 @@
-/*
-	Parser
+/** @file
+	Parser: pool class.
+
 	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.12 2001/03/19 15:29:39 paf Exp $
+	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 */
-
-#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