| 554 | |
| 555 | |
| 556 | static l_mem singlestep (lua_State *L) { |
| 557 | global_State *g = G(L); |
| 558 | /*lua_checkmemory(L);*/ |
| 559 | switch (g->gcstate) { |
| 560 | case GCSpause: { |
| 561 | markroot(L); /* start a new collection */ |
| 562 | return 0; |
| 563 | } |
| 564 | case GCSpropagate: { |
| 565 | if (g->gray) |
| 566 | return propagatemark(g); |
| 567 | else { /* no more `gray' objects */ |
| 568 | atomic(L); /* finish mark phase */ |
| 569 | return 0; |
| 570 | } |
| 571 | } |
| 572 | case GCSsweepstring: { |
| 573 | lu_mem old = g->totalbytes; |
| 574 | sweepwholelist(L, &g->strt.hash[g->sweepstrgc++]); |
| 575 | if (g->sweepstrgc >= g->strt.size) /* nothing more to sweep? */ |
| 576 | g->gcstate = GCSsweep; /* end sweep-string phase */ |
| 577 | lua_assert(old >= g->totalbytes); |
| 578 | g->estimate -= old - g->totalbytes; |
| 579 | return GCSWEEPCOST; |
| 580 | } |
| 581 | case GCSsweep: { |
| 582 | lu_mem old = g->totalbytes; |
| 583 | g->sweepgc = sweeplist(L, g->sweepgc, GCSWEEPMAX); |
| 584 | if (*g->sweepgc == NULL) { /* nothing more to sweep? */ |
| 585 | checkSizes(L); |
| 586 | g->gcstate = GCSfinalize; /* end sweep phase */ |
| 587 | } |
| 588 | lua_assert(old >= g->totalbytes); |
| 589 | g->estimate -= old - g->totalbytes; |
| 590 | return GCSWEEPMAX*GCSWEEPCOST; |
| 591 | } |
| 592 | case GCSfinalize: { |
| 593 | if (g->tmudata) { |
| 594 | GCTM(L); |
| 595 | if (g->estimate > GCFINALIZECOST) |
| 596 | g->estimate -= GCFINALIZECOST; |
| 597 | return GCFINALIZECOST; |
| 598 | } |
| 599 | else { |
| 600 | g->gcstate = GCSpause; /* end collection */ |
| 601 | g->gcdept = 0; |
| 602 | return 0; |
| 603 | } |
| 604 | } |
| 605 | default: lua_assert(0); return 0; |
| 606 | } |
| 607 | } |
| 608 | |
| 609 | |
| 610 | void luaC_step (lua_State *L) { |
no test coverage detected