--- parser3/src/main/pa_memory.C	2024/11/09 17:17:51	1.20
+++ parser3/src/main/pa_memory.C	2026/04/25 13:38:46	1.24
@@ -1,7 +1,7 @@
 /** @file
 	Parser: memory reference counting classes.
 
-	Copyright (c) 2001-2024 Art. Lebedev Studio (http://www.artlebedev.com)
+	Copyright (c) 2001-2026 Art. Lebedev Studio (https://www.artlebedev.com)
 	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */
 
@@ -9,7 +9,7 @@
 #include "pa_common.h"
 #include "pa_threads.h"
 
-volatile const char * IDENT_PA_MEMORY_C="$Id: pa_memory.C,v 1.20 2024/11/09 17:17:51 moko Exp $" IDENT_PA_MEMORY_H;
+volatile const char * IDENT_PA_MEMORY_C="$Id: pa_memory.C,v 1.24 2026/04/25 13:38:46 moko Exp $" IDENT_PA_MEMORY_H;
 
 void *pa_fail_alloc(const char* what, size_t size) {
 #ifdef PA_DEBUG_DISABLE_GC
@@ -22,6 +22,16 @@ void *pa_fail_alloc(const char* what, si
 	return 0;
 }
 
+#ifndef PA_DEBUG_DISABLE_GC
+// Under Windows pa_fail_alloc was 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) {
+	SAPI::die("fatal memory error: %s. heap_used=%u, heap_free=%u, bytes_since_gc=%u, total_bytes=%u",
+		what ? what : "pre-exit", 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){