luaL_checkstack accepts NULL message.v0.3

1 files changed, 12 insertions, 0 deletions

diff --git a/c-api/compat-5.3.c b/c-api/compat-5.3.c
index 34b8001..fd41798 100644
--- a/c-api/compat-5.3.c
+++ b/c-api/compat-5.3.c
@@ -155,6 +155,18 @@ COMPAT53_API void luaL_checkversion (lua_State *L) {
 }
 
 
+COMPAT53_API void luaL_checkstack (lua_State *L, int sp, const char *msg) {
+  if (!lua_checkstack(L, sp+LUA_MINSTACK)) {
+    if (msg != NULL)
+      luaL_error(L, "stack overflow (%s)", msg);
+    else {
+      lua_pushliteral(L, "stack overflow");
+      lua_error(L);
+    }
+  }
+}
+
+
 COMPAT53_API int luaL_getsubtable (lua_State *L, int i, const char *name) {
   int abs_i = lua_absindex(L, i);
   luaL_checkstack(L, 3, "not enough stack slots");