make queues 0 indexed

sim/utility.lua

@@ -68,24 +68,28 @@ function tobitstring(num, len)
 	return bitstring
 end
 
-function array_remove(array, value, pass)
-	for i = 1, #array do
+function array_remove(array, len, value, pass)
+	for i = 0, len-1 do
 		local v = array[i]
 		if v==value then
-			array[i] = array[#array]
-			array[#array] = nil
-			return
+			array[i] = array[len-1]
+			array[len-1] = nil
+			len = len - 1
+			return len
 		end
 	end
 	if not pass then error("element not in array") end
+	return len
 end
 
-function array_add(array, value)
-	for i = 1, #array do
+function array_add(array, len, value)
+	for i = 0, len-1 do
 		local v = array[i]
-		if v==value then return end
+		if v==value then return len end
 	end
-	table.insert(array, value)
+	array[len] = value
+	len = len + 1
+	return len
 end
 
 function round(x)