--- parser3/src/main/pa_memory.C	2003/03/18 15:14:19	1.1.2.5.2.1
+++ parser3/src/main/pa_memory.C	2003/03/25 09:34:53	1.1.2.5.2.5
@@ -5,16 +5,20 @@
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
-static const char* IDENT_MEMORY_C="$Date: 2003/03/18 15:14:19 $";
+static const char* IDENT_MEMORY_C="$Date: 2003/03/25 09:34:53 $";
 
-/*
-#include "pa_exception.h"
-#include "pa_common.h"*/
 #include "pa_sapi.h"
+#include "pa_common.h"
 
-void *pa_fail_alloc(const char *what, size_t size) {
-	SAPI::abort("out of memory: failed to %s %u bytes",
-		what, size);
+void *pa_fail_alloc(const char* what, size_t size) {
+	SAPI::abort("out of memory: failed to %s %u bytes. "
+		"heap_used=%lu, heap_free=%lu, bytes_since_gc=%lu, total_bytes=%lu",
+		what, size,
+		GC_get_heap_size(),
+		GC_get_free_bytes(),
+		GC_get_bytes_since_gc(),
+		GC_get_total_bytes()
+		);
 
 	// never reached
 	return 0;