mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Lua 5.5 compatibility

Browse source
This commit is contained in:
Alexander Koblov 2026-05-08 00:14:01 +03:00
commit eb40609250
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/platform/lua.pas
View file

@ -672,6 +672,7 @@ var
luaL_prepbuffsize: function (B: PluaL_Buffer; sz: size_t): PAnsiChar; cdecl;
lua_getglobal_: function (L: Plua_State; const name: PAnsiChar): Integer; cdecl;
lua_tonumber_: function (L : Plua_State; idx : Integer) : lua_Number; cdecl;
luaL_openselectedlibs: procedure (L: Plua_State; load, preload: Integer); cdecl;
luaL_loadfile_: function (L: Plua_State; const filename: PAnsiChar): Integer; cdecl;
lua_newuserdatauv: function(L: Plua_State; sz: size_t; nuvalue: Integer): Pointer; cdecl;
lua_tonumberx: function(L: Plua_State; idx: Integer; isnum: PLongBool): lua_Number; cdecl;
@ -714,6 +715,11 @@ begin
lua_pop(L, 1);
end;
procedure luaL_openlibs55(L: Plua_State); cdecl;
begin
luaL_openselectedlibs(L, not 0, 0);
end;
procedure UnloadLuaLib;
begin
if LuaLibD <> NilHandle then
@ -807,7 +813,6 @@ begin
@luaopen_math := GetProcAddress(LuaLibD, 'luaopen_math');
@luaopen_debug := GetProcAddress(LuaLibD, 'luaopen_debug');
@luaopen_package := GetProcAddress(LuaLibD, 'luaopen_package');
@luaL_openlibs := GetProcAddress(LuaLibD, 'luaL_openlibs');
@lua_getstack := GetProcAddress(LuaLibD, 'lua_getstack');
@lua_getinfo := GetProcAddress(LuaLibD, 'lua_getinfo');
@lua_getlocal := GetProcAddress(LuaLibD, 'lua_getlocal');
@ -947,6 +952,16 @@ begin
else begin
@lua_resume51 := GetProcAddress(LuaLibD, 'lua_resume');
end;
if (LUA_VERSION_DYN < 505) then
@luaL_openlibs := GetProcAddress(LuaLibD, 'luaL_openlibs')
else begin
@luaL_openlibs := @luaL_openlibs55;
LUA_REGISTRYINDEX := -(MaxInt div 2 + 1000);
LUA_UPVALUEINDEX_ := -(MaxInt div 2 + 1000);
LUAL_BUFFERSIZE := (16 * SizeOf(Pointer) * SizeOf(lua_Number));
@luaL_openselectedlibs := GetProcAddress(LuaLibD, 'luaL_openselectedlibs');
end
end;
(*****************************************************************************)