# HG changeset patch
# User rubidium <rubidium@openttd.org>
# Date 2009-02-08 01:51:48
# Node ID 0af2fa697c41bd238954391dde16944730dd1115
# Parent  0468f0a12303b806b20c2bb73d5023a78219f286

(svn r15406) -Fix: make Valuate actually cost a few opcodes to not make it a single opcode method of doing lots of the same thing. This should resolve most of the hiccups caused by AIs.

diff --git a/src/ai/api/ai_abstractlist.cpp b/src/ai/api/ai_abstractlist.cpp
--- a/src/ai/api/ai_abstractlist.cpp
+++ b/src/ai/api/ai_abstractlist.cpp
@@ -6,6 +6,7 @@
 #include "ai_abstractlist.hpp"
 #include "../../debug.h"
 #include "../../core/alloc_func.hpp"
+#include "../../script/squirrel.hpp"
 
 /**
  * Base class for any AIAbstractList sorter.
@@ -818,6 +819,8 @@ SQInteger AIAbstractList::Valuate(HSQUIR
 
 		(*iter).second = (int32)value;
 		this->buckets[(int32)value].insert((*iter).first);
+
+		Squirrel::DecreaseOps(vm, 5);
 	}
 
 	sq_release(vm, &obj_func);
diff --git a/src/script/squirrel.cpp b/src/script/squirrel.cpp
--- a/src/script/squirrel.cpp
+++ b/src/script/squirrel.cpp
@@ -454,3 +454,8 @@ void Squirrel::InsertResult(int result)
 	vm->GetAt(vm->_stackbase + vm->_suspended_target) = vm->GetUp(-1);
 	vm->Pop();
 }
+
+/* static */ void Squirrel::DecreaseOps(HSQUIRRELVM vm, int ops)
+{
+	vm->DecreaseOps(ops);
+}
diff --git a/src/script/squirrel.hpp b/src/script/squirrel.hpp
--- a/src/script/squirrel.hpp
+++ b/src/script/squirrel.hpp
@@ -186,6 +186,11 @@ public:
 	 * Release a SQ object.
 	 */
 	void ReleaseObject(HSQOBJECT *ptr) { sq_release(this->vm, ptr); }
+
+	/**
+	 * Tell the VM to remove \c amount ops from the number of ops till suspend.
+	 */
+	static void DecreaseOps(HSQUIRRELVM vm, int amount);
 };
 
 #endif /* SQUIRREL_HPP */