--- parser3/src/main/pa_pool.C	2001/01/30 13:07:31	1.5
+++ parser3/src/main/pa_pool.C	2001/03/19 20:46:38	1.15
@@ -1,8 +1,21 @@
-/*
-  $Id: pa_pool.C,v 1.5 2001/01/30 13:07:31 paf Exp $
+/** @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.15 2001/03/19 20:46:38 paf Exp $
 */
 
-#include <stdlib.h>
+#include <string.h>
 
 #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 {
+	fexception->_throw(0, 0,
+		0,
+		"failed to allocate %u bytes", size);
+}