| 609 | |
| 610 | |
| 611 | void luaC_step (lua_State *L) { |
| 612 | global_State *g = G(L); |
| 613 | l_mem lim = (GCSTEPSIZE/100) * g->gcstepmul; |
| 614 | if (lim == 0) |
| 615 | lim = (MAX_LUMEM-1)/2; /* no limit */ |
| 616 | g->gcdept += g->totalbytes - g->GCthreshold; |
| 617 | do { |
| 618 | lim -= singlestep(L); |
| 619 | if (g->gcstate == GCSpause) |
| 620 | break; |
| 621 | } while (lim > 0); |
| 622 | if (g->gcstate != GCSpause) { |
| 623 | if (g->gcdept < GCSTEPSIZE) |
| 624 | g->GCthreshold = g->totalbytes + GCSTEPSIZE; /* - lim/g->gcstepmul;*/ |
| 625 | else { |
| 626 | g->gcdept -= GCSTEPSIZE; |
| 627 | g->GCthreshold = g->totalbytes; |
| 628 | } |
| 629 | } |
| 630 | else { |
| 631 | lua_assert(g->totalbytes >= g->estimate); |
| 632 | setthreshold(g); |
| 633 | } |
| 634 | } |
| 635 | |
| 636 | |
| 637 | void luaC_fullgc (lua_State *L) { |