--- parser3/src/classes/memory.C	2020/12/15 17:10:29	1.18
+++ parser3/src/classes/memory.C	2021/01/16 15:47:05	1.19
@@ -8,8 +8,9 @@
 #include "pa_common.h"
 #include "pa_vmemory.h"
 #include "pa_request.h"
+#include "pa_vmethod_frame.h"
 
-volatile const char * IDENT_MEMORY_C="$Id: memory.C,v 1.18 2020/12/15 17:10:29 moko Exp $" IDENT_PA_VMEMORY_H;
+volatile const char * IDENT_MEMORY_C="$Id: memory.C,v 1.19 2021/01/16 15:47:05 moko Exp $" IDENT_PA_VMEMORY_H;
 
 class MMemory: public Methoded {
 public:
@@ -25,7 +26,14 @@ DECLARE_CLASS_VAR(memory, new MMemory);
 
 static void _compact(Request& r, MethodParams&) {
 	r.wipe_unused_execution_stack();
-	PA_GC_GCOLLECT;
+	pa_gc_collect(true);
+}
+
+static void _auto_compact(Request& r, MethodParams& params) {
+	int divisor = params.as_int(0, "frequency must be int", r);
+	if(divisor<0 || divisor>5)
+		throw Exception(PARSER_RUNTIME, 0, "frequency '%d' is out of range 0..5", divisor);
+	pa_gc_set_free_space_divisor(divisor);
 }
 
 // constructor
@@ -33,4 +41,6 @@ static void _compact(Request& r, MethodP
 MMemory::MMemory(): Methoded("memory") {
 	// ^compact[]
 	add_native_method("compact", Method::CT_STATIC, _compact, 0, 0);
+	// ^auto-compact(N)
+	add_native_method("auto-compact", Method::CT_STATIC, _auto_compact, 1, 1);
 }