From 6a2d1112c3cf64b46f7c60d7878d5cc8101fc5cd Mon Sep 17 00:00:00 2001
From: Benoit Germain <benoit.germain@ubisoft.com>
Date: Fri, 7 Jun 2024 10:07:44 +0200
Subject: Debug code to help track linda gc during keeper operation

---
 deep_test/deeptest.lua | 52 +++++++++++++++++++++++++++++++++++---------------
 1 file changed, 37 insertions(+), 15 deletions(-)

(limited to 'deep_test/deeptest.lua')

diff --git a/deep_test/deeptest.lua b/deep_test/deeptest.lua
index 99cf1e4..250eb98 100644
--- a/deep_test/deeptest.lua
+++ b/deep_test/deeptest.lua
@@ -1,6 +1,8 @@
 local lanes = require("lanes").configure{ with_timers = false}
 local l = lanes.linda "my linda"
 
+local table_unpack = table.unpack or unpack -- Lua 5.1 support
+
 -- we will transfer userdata created by this module, so we need to make Lanes aware of it
 local dt = lanes.require "deep_test"
 
@@ -93,24 +95,44 @@ if DEEP then
 	print "================================================================"
 	print "DEEP"
 	local d = dt.new_deep(nupvals)
-	if DEEP == "gc" then
-		local thrasher = function(repeat_, size_)
-			print "in thrasher"
-			-- result is a table of repeat_ tables, each containing size_ entries
-			local result = {}
-			for i = 1, repeat_ do
-				local batch_values = {}
-				for j = 1, size_ do
-					table.insert(batch_values, j)
+	if type(DEEP) == "string" then
+		local gc_tests = {
+			thrasher = function(repeat_, size_)
+				print "in thrasher"
+				-- result is a table of repeat_ tables, each containing size_ entries
+				local result = {}
+				for i = 1, repeat_ do
+					local batch_values = {}
+					for j = 1, size_ do
+						table.insert(batch_values, j)
+					end
+					table.insert(result, batch_values)
+				end
+				print "thrasher done"
+				return result
+			end,
+			stack_abuser = function(repeat_, size_)
+				print "in stack_abuser"
+				for i = 1, repeat_ do
+					local batch_values = {}
+					for j = 1, size_ do
+						table.insert(batch_values, j)
+					end
+					-- return size_ values
+					local _ = table_unpack(batch_values)
 				end
-				table.insert(result, batch_values)
+				print "stack_abuser done"
+				return result
 			end
-			print "thrasher done"
-			return result
-		end
+		}
 		-- have the object call the function from inside one of its functions, to detect if it gets collected from there (while in use!)
-		local r = d:invoke(thrasher, REPEAT or 10, SIZE or 10)
-		print("invoke -> ", tostring(r))
+		local testf = gc_tests[DEEP]
+		if testf then
+			local r = d:invoke(gc_tests[DEEP], REPEAT or 10, SIZE or 10)
+			print("invoke -> ", tostring(r))
+		else
+			print("unknown test '" .. DEEP .. "'")
+		end
 	else
 		performTest(d)
 	end
-- 
cgit v1.2.3-55-g6feb