nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

New mechanism to query GC parameters

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2024-01-16 17:02:55 -03:00
parent 17e0c29d9b
commit 4a8e480864
6 changed files with 35 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
testes/gc.lua
View File

@@ -28,19 +28,21 @@ end
-- test weird parameters to 'collectgarbage'
do
collectgarbage("incremental")
local opause = collectgarbage("setparam", "pause", 100)
local ostepmul = collectgarbage("setparam", "stepmul", 100)
local opause = collectgarbage("param", "pause", 100)
local ostepmul = collectgarbage("param", "stepmul", 100)
assert(collectgarbage("param", "pause") == 100)
assert(collectgarbage("param", "stepmul") == 100)
local t = {0, 2, 10, 90, 500, 5000, 30000, 0x7ffffffe}
for i = 1, #t do
collectgarbage("setparam", "pause", t[i])
collectgarbage("param", "pause", t[i])
for j = 1, #t do
collectgarbage("setparam", "stepmul", t[j])
collectgarbage("param", "stepmul", t[j])
collectgarbage("step", t[j])
end
end
-- restore original parameters
collectgarbage("setparam", "pause", opause)
collectgarbage("setparam", "stepmul", ostepmul)
collectgarbage("param", "pause", opause)
collectgarbage("param", "stepmul", ostepmul)
collectgarbage()
end

6
testes/gengc.lua
View File

@@ -163,15 +163,17 @@ assert(collectgarbage'isrunning')
do print"testing stop-the-world collection"
local step = collectgarbage("setparam", "stepsize", 0);
local step = collectgarbage("param", "stepsize", 0);
collectgarbage("incremental")
assert(collectgarbage("param", "stepsize") == 0)
-- each step does a complete cycle
assert(collectgarbage("step"))
assert(collectgarbage("step"))
-- back to default value
collectgarbage("setparam", "stepsize", step);
collectgarbage("param", "stepsize", step);
assert(collectgarbage("param", "stepsize") == step)
end
collectgarbage(oldmode)