commit 9a2de786de5da862404995ddd3408f7ad3d54ee8
author Roberto Ierusalimschy <roberto@inf.puc-rio.br> Tue Mar 02 11:35:40 2021 -0300
committer Roberto Ierusalimschy <roberto@inf.puc-rio.br> Tue Mar 02 11:35:40 2021 -0300
tree d0c6eab13c95ac7a9c6148b9b63dd6df60d3f238
parent 5276973224066e591b0f1a79c3b091d395848ac4

Stack check in warning function for tests

The warning function using for tests need to check the stack before
pushing anything. (Warning functions are not expected to access a
Lua state, therefore they have no preallocated stack space.)

ltests.c

diff --git a/ltests.c b/ltests.c
index da95d02..a50f783 100644
--- a/ltests.c
+++ b/ltests.c
@@ -121,6 +121,7 @@
   strcat(buff, msg);  /* add new message to current warning */
   if (!tocont) {  /* message finished? */
     lua_unlock(L);
+    luaL_checkstack(L, 1, "warn stack space");
     lua_getglobal(L, "_WARN");
     if (!lua_toboolean(L, -1))
       lua_pop(L, 1);  /* ok, no previous unexpected warning */
@@ -142,6 +143,7 @@
       }
       case 2: {  /* store */
         lua_unlock(L);
+        luaL_checkstack(L, 1, "warn stack space");
         lua_pushstring(L, buff);
         lua_setglobal(L, "_WARN");  /* assign message to global '_WARN' */
         lua_lock(L);