From 4a8e48086433ad12f2991c07f3064278714fd0f1 Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Tue, 16 Jan 2024 17:02:55 -0300 Subject: New mechanism to query GC parameters --- testes/gc.lua | 14 ++++++++------ testes/gengc.lua | 6 ++++-- 2 files changed, 12 insertions(+), 8 deletions(-) (limited to 'testes') diff --git a/testes/gc.lua b/testes/gc.lua index c26de406..5b39bac1 100644 --- a/testes/gc.lua +++ b/testes/gc.lua @@ -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 diff --git a/testes/gengc.lua b/testes/gengc.lua index 51872cc1..c4f6ca1b 100644 --- a/testes/gengc.lua +++ b/testes/gengc.lua @@ -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) -- cgit v1.2.3-55-g6feb