Added Lua 5.5 support

* some unit tests fail/segfault/freeze, but that could be because Lua 5.5 is still in beta yet

10 files changed, 97 insertions, 32 deletions

diff --git a/CHANGES b/CHANGES
index b6bf3d6..17a79f7 100644
--- a/CHANGES
+++ b/CHANGES
@@ -6,6 +6,7 @@ CHANGE 2: BGe 05-Jun-25
         - Almost all platform-specific code is gone (only a small bit for thread priority and affinity remains).
         - Decoda support inactive by default.
         - Deep userdata interface fully revamped to C++20 too.
+        - Supports Lua 5.5
     * Lanes API changes
         - Version is now 4.0.0
         - Lanes module:
diff --git a/docs/index.html b/docs/index.html
index f6201cc..96151fe 100644
--- a/docs/index.html
+++ b/docs/index.html
@@ -67,7 +67,7 @@
                                 <br />
                                 <i>Copyright &copy; 2007-25 Asko Kauppi, Benoit Germain. All rights reserved.</i>
                                 <br />
-                                Lua Lanes is published under the same <a href="http://en.wikipedia.org/wiki/MIT_License">MIT license</a> as Lua 5.1, 5.2, 5.3 and 5.4.
+                                Lua Lanes is published under the same <a href="http://en.wikipedia.org/wiki/MIT_License">MIT license</a> as Lua 5.1, 5.2, 5.3, 5.4 and 5.5.
                         </p>
 
                         <p>
@@ -89,7 +89,7 @@
         Lanes is included into your software by the regular <tt>require "lanes"</tt> method. No C side programming is needed; all APIs are Lua side, and most existing extension modules should work seamlessly together with the multiple lanes.
 </p>
 <p>
-        Lanes should build and run identically with either Lua 5.1 to Lua 5.4, as well as LuaJIT.
+        Lanes should build and run identically with either Lua 5.1 to Lua 5.5, as well as LuaJIT.
 </p>
 <p>
         See <A HREF="comparison.html">comparison</A> of Lua Lanes with other Lua multithreading solutions.
@@ -893,7 +893,7 @@
         The name is stored inside the Lua state registry so that it is available for error reporting. Changing <tt>decoda_name</tt> doesn't affect this hidden name or the OS thread name reported by MSVC.<br />
         When Lanes is initialized by the first <a href="#initialization"><tt>lanes.configure()</tt></a> call, <tt>"main"</tt> is stored in the registry in the same fashion (but <tt>decoda_name</tt> and the OS thread name are left unchanged).<br />
         The lane also has a method <tt>lane:get_threadname()</tt> that gives access to that name from the caller side (returns <tt>"&lt;unnamed&gt;"</tt> if unset).<br />
-        With Lua 5.4, Lanes have a <tt>__close</tt> metamethod, meaning they can be declared to-be-closed. <tt>__close</tt> calls <tt>lane:join(nil)</tt>.
+        With Lua 5.4+, Lanes have a <tt>__close</tt> metamethod, meaning they can be declared to-be-closed. <tt>__close</tt> calls <tt>lane:join(nil)</tt>.
 </p>
 
 <p>
diff --git a/lanes-4.0.0-0.rockspec b/lanes-4.0.0-0.rockspec
index e3c8709..f4de050 100644
--- a/lanes-4.0.0-0.rockspec
+++ b/lanes-4.0.0-0.rockspec
@@ -36,7 +36,7 @@ supported_platforms= { "win32",
 }
 
 dependencies= {
-        "lua >= 5.1", -- builds with either 5.1/LuaJIT, 5.2, 5.3 and 5.4
+        "lua >= 5.1", -- builds with either 5.1/LuaJIT, 5.2, 5.3, 5.4 and 5.5
 }
 
 build = {
diff --git a/src/allocator.hpp b/src/allocator.hpp
index ce65a4b..b578f12 100644
--- a/src/allocator.hpp
+++ b/src/allocator.hpp
@@ -66,7 +66,7 @@ namespace lanes {
         [[nodiscard]]
         lua_State* newState() const
         {
-            return lua_newstate(allocF, allocUD);
+            return luaW_newstate(allocF, allocUD, luaL_makeseed(nullptr));
         }
 
         [[nodiscard]]
diff --git a/src/compat.cpp b/src/compat.cpp
index 08f22ca..c833480 100644
--- a/src/compat.cpp
+++ b/src/compat.cpp
@@ -149,3 +149,41 @@ int lua_setiuservalue(lua_State* const L_, StackIndex const idx_, UserValueIndex
 }
 
 #endif // LUA_VERSION_NUM
+
+// #################################################################################################
+
+#if LUA_VERSION_NUM < 505
+
+#include <time.h>
+
+/* Size for the buffer, in bytes */
+#define BUFSEEDB (sizeof(void*) + sizeof(time_t))
+
+/* Size for the buffer in int's, rounded up */
+#define BUFSEED ((BUFSEEDB + sizeof(int) - 1) / sizeof(int))
+
+/*
+** Copy the contents of variable 'v' into the buffer pointed by 'b'.
+** (The '&b[0]' disguises 'b' to fix an absurd warning from clang.)
+*/
+#define addbuff(b, v) (memcpy(&b[0], &(v), sizeof(v)), b += sizeof(v))
+
+// Copied from Lua 5.5 lauxlib.c
+unsigned int luaL_makeseed(lua_State*)
+{
+    unsigned int buff[BUFSEED];
+    unsigned int res;
+    unsigned int i;
+    time_t t = time(nullptr);
+    char* b = (char*) buff;
+    addbuff(b, b); /* local variable's address */
+    addbuff(b, t); /* time */
+    /* fill (rare but possible) remain of the buffer with zeros */
+    memset(b, 0, sizeof(buff) - BUFSEEDB);
+    res = buff[0];
+    for (i = 1; i < BUFSEED; i++)
+        res ^= (res >> 3) + (res << 7) + buff[i];
+    return res;
+}
+
+#endif // LUA_VERSION_NUM < 505
diff --git a/src/compat.hpp b/src/compat.hpp
index 99c468c..49029df 100644
--- a/src/compat.hpp
+++ b/src/compat.hpp
@@ -21,7 +21,7 @@
 #endif // LUA_OK
 
 #ifndef LUA_ERRGCMM
-#define LUA_ERRGCMM 666 // doesn't exist in Lua 5.1 and Lua 5.4, we don't care about the actual value
+#define LUA_ERRGCMM 666 // doesn't exist in Lua 5.1 and Lua 5.4/5.5, we don't care about the actual value
 #endif // LUA_ERRGCMM
 
 
@@ -29,7 +29,7 @@
 #define LUA_LOADED_TABLE "_LOADED" // doesn't exist before Lua 5.3
 #endif // LUA_LOADED_TABLE
 
-// code is now preferring Lua 5.4 API
+// code is now preferring Lua 5.5 API
 
 // #################################################################################################
 
@@ -76,18 +76,6 @@ int luaL_getsubtable(lua_State* L_, StackIndex idx_, char const* fname_);
 
 // #################################################################################################
 
-// wrap Lua 5.3 calls under Lua 5.1 API when it is simpler that way
-#if LUA_VERSION_NUM == 503
-
-inline int luaL_optint(lua_State* L_, int n_, lua_Integer d_)
-{
-    return static_cast<int>(luaL_optinteger(L_, n_, d_));
-}
-
-#endif // LUA_VERSION_NUM == 503
-
-// #################################################################################################
-
 #if LUA_VERSION_NUM < 504
 
 void* lua_newuserdatauv(lua_State* L_, size_t sz_, UserValueCount nuvalue_);
@@ -100,15 +88,11 @@ int lua_setiuservalue(lua_State* L_, StackIndex idx_, UserValueIndex n_);
 
 // #################################################################################################
 
-// wrap Lua 5.4 calls under Lua 5.1 API when it is simpler that way
-#if LUA_VERSION_NUM == 504
+#if LUA_VERSION_NUM < 505
 
-inline int luaL_optint(lua_State* L_, StackIndex n_, lua_Integer d_)
-{
-    return static_cast<int>(luaL_optinteger(L_, n_, d_));
-}
+unsigned int luaL_makeseed(lua_State*);
 
-#endif // LUA_VERSION_NUM == 504
+#endif // LUA_VERSION_NUM < 505
 
 // #################################################################################################
 
@@ -284,6 +268,47 @@ LuaType luaW_getmodule(lua_State* L_, std::string_view const& name_);
 
 // #################################################################################################
 
+template <typename LUA_NEWSTATE>
+concept RequiresOldLuaNewState = requires(LUA_NEWSTATE f_)
+{
+    {
+        f_(nullptr, 0)
+    } -> std::same_as<lua_State*>;
+};
+
+template <RequiresOldLuaNewState LUA_NEWSTATE>
+static inline lua_State* WrapLuaNewState(LUA_NEWSTATE const lua_newstate_, lua_Alloc const allocf_, void* const ud_, [[maybe_unused]] unsigned int const seed_)
+{
+    // until Lua 5.5, lua_newstate has only 2 parameters
+    return lua_newstate_(allocf_, ud_);
+}
+
+// -------------------------------------------------------------------------------------------------
+
+template <typename LUA_NEWSTATE>
+concept RequiresNewLuaNewState = requires(LUA_NEWSTATE f_)
+{
+    {
+        f_(nullptr, nullptr, 0)
+    } -> std::same_as<lua_State*>;
+};
+
+template <RequiresNewLuaNewState LUA_NEWSTATE>
+static inline lua_State* WrapLuaNewState(LUA_NEWSTATE const lua_newstate_, lua_Alloc const allocf_, void* const ud_, unsigned int const seed_)
+{
+    // starting with Lua 5.5, lua_newstate has 3 parameters
+    return lua_newstate_(allocf_, ud_, seed_);
+}
+
+// -------------------------------------------------------------------------------------------------
+
+static inline lua_State* luaW_newstate(lua_Alloc const allocf_, void* const ud_, unsigned int const seed_)
+{
+    return WrapLuaNewState(lua_newstate, allocf_, ud_, seed_);
+}
+
+// #################################################################################################
+
 template<typename ENUM>
 requires std::is_enum_v<ENUM>
 [[nodiscard]]
@@ -364,7 +389,7 @@ template <typename LUA_RAWGET>
 concept RequiresOldLuaRawget = requires(LUA_RAWGET f_) { { f_(nullptr, 0) } -> std::same_as<void>; };
 
 template <RequiresOldLuaRawget LUA_RAWGET>
-static inline LuaType WrapLuaRawget(LUA_RAWGET lua_rawget_, lua_State* const L_, StackIndex const idx_)
+static inline LuaType WrapLuaRawget(LUA_RAWGET const lua_rawget_, lua_State* const L_, StackIndex const idx_)
 {
     // until Lua 5.3, lua_rawget -> void
     lua_rawget_(L_, idx_);
@@ -377,7 +402,7 @@ template <typename LUA_RAWGET>
 concept RequiresNewLuaRawget = requires(LUA_RAWGET f_) { { f_(nullptr, 0) } -> std::same_as<int>; };
 
 template <RequiresNewLuaRawget LUA_RAWGET>
-static inline LuaType WrapLuaRawget(LUA_RAWGET lua_rawget_, lua_State* const L_, StackIndex const idx_)
+static inline LuaType WrapLuaRawget(LUA_RAWGET const lua_rawget_, lua_State* const L_, StackIndex const idx_)
 {
     // starting with Lua 5.3, lua_rawget -> int (the type of the extracted value)
     return static_cast<LuaType>(lua_rawget_(L_, idx_));
diff --git a/src/universe.cpp b/src/universe.cpp
index 044c841..4db036b 100644
--- a/src/universe.cpp
+++ b/src/universe.cpp
@@ -447,7 +447,7 @@ int Universe::UniverseGC(lua_State* const L_)
     if (!lua_isnil(L_, -1)) {
         lua_pushboolean(L_, _allLanesTerminated);                                                  // L_: U finalizer bool
         // no protection. Lua rules for errors in finalizers apply normally:
-        // Lua 5.4: error is propagated in the warn system
+        // Lua 5.4+: error is propagated in the warn system
         // older: error is swallowed
         lua_call(L_, 1, 1);                                                                        // L_: U msg?
         // phew, no error in finalizer, since we reached that point
diff --git a/unit_tests/embedded_tests.cpp b/unit_tests/embedded_tests.cpp
index 58d6a8a..388548d 100644
--- a/unit_tests/embedded_tests.cpp
+++ b/unit_tests/embedded_tests.cpp
@@ -220,7 +220,7 @@ TEST_CASE("lanes.embedding.with_custom_allocator")
 
     static constexpr auto launch_lane = +[](lua_CFunction on_state_create_, int id_, int n_) {
         char script[500];
-        lua_State* L = lua_newstate(local::allocf, nullptr);
+        lua_State* L = luaW_newstate(local::allocf, nullptr, luaL_makeseed(nullptr));
         // _G.ID = id_
         luaL_openlibs(L);
         luaL_dostring(L, "lanes = require 'lanes'");
diff --git a/unit_tests/linda_tests.cpp b/unit_tests/linda_tests.cpp
index d956ae2..a36723a 100644
--- a/unit_tests/linda_tests.cpp
+++ b/unit_tests/linda_tests.cpp
@@ -35,7 +35,7 @@ TEST_CASE("linda.single_keeper.creation/close_handler")
     LuaState S{ LuaState::WithBaseLibs{ true }, LuaState::WithFixture{ true } };
     S.requireSuccess("lanes = require 'lanes'");
 
-    if constexpr (LUA_VERSION_NUM == 504) {
+    if constexpr (LUA_VERSION_NUM >= 504) {
         // a function is acceptable as a __close handler
         S.requireSuccess("local l <close> = lanes.linda{close_handler = function() end}");
         // a callable table too (a callable full userdata as well, but I have none here)
diff --git a/unit_tests/scripts/coro/yielding_in_non_coro_errors.lua b/unit_tests/scripts/coro/yielding_in_non_coro_errors.lua
index 88d5fe0..fc0c072 100644
--- a/unit_tests/scripts/coro/yielding_in_non_coro_errors.lua
+++ b/unit_tests/scripts/coro/yielding_in_non_coro_errors.lua
@@ -20,7 +20,8 @@ local msgs = {
     ["Lua 5.1"] = jit and "attempt to yield across C-call boundary" or "attempt to yield across metamethod/C-call boundary",
     ["Lua 5.2"] = "attempt to yield from outside a coroutine",
     ["Lua 5.3"] = "attempt to yield from outside a coroutine",
-    ["Lua 5.4"] = "attempt to yield from outside a coroutine"
+    ["Lua 5.4"] = "attempt to yield from outside a coroutine",
+    ["Lua 5.5"] = "attempt to yield from outside a coroutine"
 }
 local expected_msg = msgs[_VERSION]
 PRINT("expected_msg = " .. expected_msg)