diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2024-03-28 17:11:33 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2024-03-28 17:11:33 -0300 |
commit | 86a8e74824b3ec7918e3dbeaff222bb1ea1ec22f (patch) | |
tree | 222fc019433674ef77166aae182cb93b2fa2710f /lgc.c | |
parent | 9fa63a62682c1353eeabd4575152941fa6f3e70f (diff) | |
download | lua-86a8e74824b3ec7918e3dbeaff222bb1ea1ec22f.tar.gz lua-86a8e74824b3ec7918e3dbeaff222bb1ea1ec22f.tar.bz2 lua-86a8e74824b3ec7918e3dbeaff222bb1ea1ec22f.zip |
Details
Diffstat (limited to 'lgc.c')
-rw-r--r-- | lgc.c | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -1055,7 +1055,6 @@ static void setpause (global_State *g) { | |||
1055 | l_obj threshold = applygcparam(g, PAUSE, g->marked); | 1055 | l_obj threshold = applygcparam(g, PAUSE, g->marked); |
1056 | l_obj debt = threshold - gettotalobjs(g); | 1056 | l_obj debt = threshold - gettotalobjs(g); |
1057 | if (debt < 0) debt = 0; | 1057 | if (debt < 0) debt = 0; |
1058 | //printf("pause: %ld %ld\n", debt, g->marked); | ||
1059 | luaE_setdebt(g, debt); | 1058 | luaE_setdebt(g, debt); |
1060 | } | 1059 | } |
1061 | 1060 | ||
@@ -1261,7 +1260,6 @@ static void minor2inc (lua_State *L, global_State *g, int kind) { | |||
1261 | static int checkminormajor (global_State *g, l_obj addedold1) { | 1260 | static int checkminormajor (global_State *g, l_obj addedold1) { |
1262 | l_obj step = applygcparam(g, MINORMUL, g->GCmajorminor); | 1261 | l_obj step = applygcparam(g, MINORMUL, g->GCmajorminor); |
1263 | l_obj limit = applygcparam(g, MINORMAJOR, g->GCmajorminor); | 1262 | l_obj limit = applygcparam(g, MINORMAJOR, g->GCmajorminor); |
1264 | //printf("-> (%ld) major? marked: %ld limit: %ld step: %ld addedold1: %ld)\n", gettotalobjs(g), g->marked, limit, step, addedold1); | ||
1265 | return (addedold1 >= (step >> 1) || g->marked >= limit); | 1263 | return (addedold1 >= (step >> 1) || g->marked >= limit); |
1266 | } | 1264 | } |
1267 | 1265 | ||
@@ -1410,7 +1408,6 @@ static int checkmajorminor (lua_State *L, global_State *g) { | |||
1410 | l_obj addedobjs = numobjs - g->GCmajorminor; | 1408 | l_obj addedobjs = numobjs - g->GCmajorminor; |
1411 | l_obj limit = applygcparam(g, MAJORMINOR, addedobjs); | 1409 | l_obj limit = applygcparam(g, MAJORMINOR, addedobjs); |
1412 | l_obj tobecollected = numobjs - g->marked; | 1410 | l_obj tobecollected = numobjs - g->marked; |
1413 | //printf("(%ld) -> minor? tobecollected: %ld limit: %ld\n", numobjs, tobecollected, limit); | ||
1414 | if (tobecollected > limit) { | 1411 | if (tobecollected > limit) { |
1415 | atomic2gen(L, g); /* return to generational mode */ | 1412 | atomic2gen(L, g); /* return to generational mode */ |
1416 | setminordebt(g); | 1413 | setminordebt(g); |