diff options
Diffstat (limited to 'testes/cstack.lua')
| -rw-r--r-- | testes/cstack.lua | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/testes/cstack.lua b/testes/cstack.lua index 8ac48e89..7bd55063 100644 --- a/testes/cstack.lua +++ b/testes/cstack.lua | |||
| @@ -135,14 +135,18 @@ if T then | |||
| 135 | local topB, sizeB -- top and size Before overflow | 135 | local topB, sizeB -- top and size Before overflow |
| 136 | local topA, sizeA -- top and size After overflow | 136 | local topA, sizeA -- top and size After overflow |
| 137 | topB, sizeB = T.stacklevel() | 137 | topB, sizeB = T.stacklevel() |
| 138 | collectgarbage("stop") -- __gc should not be called with a full stack | ||
| 138 | xpcall(f, err) | 139 | xpcall(f, err) |
| 140 | collectgarbage("restart") | ||
| 139 | topA, sizeA = T.stacklevel() | 141 | topA, sizeA = T.stacklevel() |
| 140 | -- sizes should be comparable | 142 | -- sizes should be comparable |
| 141 | assert(topA == topB and sizeA < sizeB * 2) | 143 | assert(topA == topB and sizeA < sizeB * 2) |
| 142 | print(string.format("maximum stack size: %d", stack1)) | 144 | print(string.format("maximum stack size: %d", stack1)) |
| 143 | LIM = N -- will stop recursion at maximum level | 145 | LIM = N -- will stop recursion at maximum level |
| 144 | N = 0 -- to count again | 146 | N = 0 -- to count again |
| 147 | collectgarbage("stop") -- __gc should not be called with a full stack | ||
| 145 | f() | 148 | f() |
| 149 | collectgarbage("restart") | ||
| 146 | print"+" | 150 | print"+" |
| 147 | end | 151 | end |
| 148 | 152 | ||
