--- parser3/src/main/pa_memory.C	2003/03/24 10:21:29	1.1.2.5.2.4
+++ parser3/src/main/pa_memory.C	2024/11/09 17:28:22	1.22
@@ -1,31 +1,62 @@
 /** @file
 	Parser: memory reference counting classes.
 
-	Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
+	Copyright (c) 2001-2024 Art. Lebedev Studio (http://www.artlebedev.com)
+	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */
 
-static const char* IDENT_MEMORY_C="$Date: 2003/03/24 10:21:29 $";
-
 #include "pa_sapi.h"
 #include "pa_common.h"
+#include "pa_threads.h"
+
+volatile const char * IDENT_PA_MEMORY_C="$Id: pa_memory.C,v 1.22 2024/11/09 17:28:22 moko Exp $" IDENT_PA_MEMORY_H;
 
 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()
-		);
+#ifdef PA_DEBUG_DISABLE_GC
+	SAPI::die("out of memory (in pa_fail_alloc)");
+#else
+	SAPI::die("out of memory: failed to %s %u bytes. heap_used=%u, heap_free=%u, bytes_since_gc=%u, total_bytes=%u",
+		what, size, GC_get_heap_size(), GC_get_free_bytes(), GC_get_bytes_since_gc(), GC_get_total_bytes());
+#endif
+	// never reached
+	return 0;
+}
 
+#ifdef _MSC_VER
+// pa_fail_alloc referenced in function GC_default_on_abort in gc.lib(misc.c) and thus should be extern "C"
+extern "C" void *pa_fail_alloc(const char* what);
+
+void *pa_fail_alloc(const char* what) {
+	SAPI::die("fatal memory error: %s. heap_used=%u, heap_free=%u, bytes_since_gc=%u, total_bytes=%u",
+		what, GC_get_heap_size(), GC_get_free_bytes(), GC_get_bytes_since_gc(), GC_get_total_bytes());
 	// never reached
 	return 0;
 }
+#endif
+
+int pa_free_space_divisor = 0;
 
+void pa_gc_collect(bool forced){
+#ifndef PA_DEBUG_DISABLE_GC
+    int divisor = pa_free_space_divisor; // as it can change during collect in multithreaded enviroment
+    if(!divisor) GC_enable();
+    if(!divisor || forced) GC_gcollect();
+    if(!divisor) GC_disable();
+#endif
+}
 
-char* pa_format_integer(int value) {
-	char local[MAX_NUMBER];
-	return pa_strdup(local, snprintf(local, MAX_NUMBER, "%d", value));
-};
+void pa_gc_set_free_space_divisor(int divisor){
+#ifndef PA_DEBUG_DISABLE_GC
+	if(divisor != pa_free_space_divisor){
+		SYNCHRONIZED;
+		if(pa_free_space_divisor){
+			if(!divisor) GC_disable();
+		} else {
+			if(divisor) GC_enable();
+		}
+		if(divisor)
+			GC_set_free_space_divisor(divisor);
+		pa_free_space_divisor = divisor;
+	}
+#endif
+}