2031 begin

  2031 begin

  2032     if lua_gettop(L) <> 1 then

  2032     if lua_gettop(L) <> 1 then

  2033         begin

  2033         begin

  2034         LuaParameterCountError('EndLuaAPITest', 'LUA_API_TEST_SUCCESSFUL or LUA_API_TEST_FAILED', lua_gettop(L));

  2034         LuaParameterCountError('EndLuaAPITest', 'LUA_API_TEST_SUCCESSFUL or LUA_API_TEST_FAILED', lua_gettop(L));

  2035         lua_pushnil(L);

  2035         lua_pushnil(L);

  2036         end

  2037         end

  2037     else

  2038     else

  2038         begin

  2039         begin

  2039         WriteLnToConsole('Lua test finished');

  2040         WriteLnToConsole('Lua test finished');

  2040         halt(lua_tointeger(L, 1));

  2041         halt(lua_tointeger(L, 1));

  2042         end;

  2042         end;

  2043 end;

  2043 end;

  2044 ///////////////////

  2044 ///////////////////

  2045 

  2045 

  2046 procedure ScriptPrintStack;

  2046 procedure ScriptPrintStack;