--- parser3/src/main/pa_pool.C	2001/01/26 15:32:52	1.2
+++ parser3/src/main/pa_pool.C	2001/02/22 11:08:25	1.9
@@ -1,21 +1,15 @@
 /*
-  $Id: pa_pool.C,v 1.2 2001/01/26 15:32:52 paf Exp $
+  $Id: pa_pool.C,v 1.9 2001/02/22 11:08:25 paf Exp $
 */
 
-#include <stdlib.h>
+#include <string.h>
 
 #include "pa_pool.h"
+#include "pa_exception.h"
 
-Pool::Pool() {
-}
-
-Pool::~Pool() {
-}
-
-void *Pool::alloc(size_t size) {
-	return ::malloc(size);
-}
-
-void *Pool::calloc(size_t size) {
-	return ::calloc(size, 1);
+void Pool::fail(size_t size) const {
+	// TODO: if(!fexception) die("Pool::fail with no exception set")
+	fexception->_throw(0, 0,
+		0,
+		"failed to allocate %u bytes", size);
 }