(svn r15330) -Fix [FS#2597]: leaking of Squirrel when using circular references (by enabling the GC).

2 files changed, 10 insertions, 0 deletions

diff --git a/src/script/squirrel.cpp b/src/script/squirrel.cpp
index 26196292c..1400eaf0a 100644
--- a/src/script/squirrel.cpp
+++ b/src/script/squirrel.cpp
@@ -175,6 +175,11 @@ bool Squirrel::Resume(int suspend)
 	return this->vm->_suspended != 0;
 }
 
+void Squirrel::CollectGarbage()
+{
+	sq_collectgarbage(this->vm);
+}
+
 bool Squirrel::CallMethod(HSQOBJECT instance, const char *method_name, HSQOBJECT *ret, int suspend)
 {
 	/* Store the stack-location for the return value. We need to
diff --git a/src/script/squirrel.hpp b/src/script/squirrel.hpp
index 39357bade..fc7472e96 100644
--- a/src/script/squirrel.hpp
+++ b/src/script/squirrel.hpp
@@ -101,6 +101,11 @@ public:
 	 */
 	bool Resume(int suspend = -1);
 
+	/**
+	 * Tell the VM to do a garbage collection run.
+	 */
+	void CollectGarbage();
+
 	void InsertResult(bool result);
 	void InsertResult(int result);