lua

commit 193bf7919ea97a2d1a98734e1a215ee6d3fc021b
parent 366c85564874d560b3608349f752e9e490f9002d
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Fri,  5 Jul 2024 14:56:44 -0300

'printstack' (from ltests.c) made public

That function is useful for debugging the API.

Diffstat:
M
ltests.c
 | 
4
++--
M
ltests.h
 | 
6
+++++-

2 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/ltests.c b/ltests.c
@@ -822,7 +822,7 @@ static int listlocals (lua_State *L) {
 
 
 
-static void printstack (lua_State *L) {
+void lua_printstack (lua_State *L) {
   int i;
   int n = lua_gettop(L);
   printf("stack: >>\n");
@@ -1652,7 +1652,7 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
         printf("%s\n", luaL_tolstring(L1, n, NULL));
         lua_pop(L1, 1);
       }
-      else printstack(L1);
+      else lua_printstack(L1);
     }
     else if EQ("print") {
       const char *msg = getstring;
diff --git a/ltests.h b/ltests.h
@@ -64,7 +64,6 @@ LUA_API Memcontrol l_memcontrol;
 extern void *l_Trick;
 
 
-
 /*
 ** Function to traverse and check all memory used by Lua
 */
@@ -76,6 +75,11 @@ LUAI_FUNC int lua_checkmemory (lua_State *L);
 struct GCObject;
 LUAI_FUNC void lua_printobj (lua_State *L, struct GCObject *o);
 
+/*
+** Function to print the stack
+*/
+LUAI_FUNC void lua_printstack (lua_State *L);
+
 
 /* test for lock/unlock */