--- parser3/src/main/pa_memory.C	2003/03/20 09:41:46	1.1.2.5.2.2
+++ parser3/src/main/pa_memory.C	2003/03/27 15:33:45	1.1.2.5.2.7
@@ -5,17 +5,24 @@
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
-static const char* IDENT_MEMORY_C="$Date: 2003/03/20 09:41:46 $";
+static const char* IDENT_MEMORY_C="$Date: 2003/03/27 15:33:45 $";
 
-/*
-#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);
-
+#ifdef PA_DEBUG_DISABLE_GC
+	SAPI::abort("xx");
+#else
+	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()
+		);
+#endif
 	// never reached
 	return 0;
 }