From 83eabf083b695a296556b35b30be052afd76ee0c Mon Sep 17 00:00:00 2001
From: mitchell <70453897+667e-11@users.noreply.github.com>
Date: Thu, 15 Dec 2011 11:16:50 -0500
Subject: Add support for compiling with LuaJIT.

---
 src/textadept.c | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'src/textadept.c')

diff --git a/src/textadept.c b/src/textadept.c
index f828e8ae..e6b3cb10 100644
--- a/src/textadept.c
+++ b/src/textadept.c
@@ -731,8 +731,18 @@ static gboolean c_keypress(GtkWidget*_, GdkEventKey *event, gpointer __) {
 /******************************** Lua Interface *******************************/
 /******************************************************************************/
 
+#if LUAJIT
+#define LUA_RIDX_GLOBALS LUA_GLOBALSINDEX
+#define LUA_OK 0
+#define lua_rawlen lua_objlen
+#define LUA_OPEQ 0
+#define lua_compare(l, a, b, _) lua_equal(l, a, b)
 #define lL_openlib(l, n, f) \
-  (luaL_requiref(l, n, f, 1), lua_pop(l, 1))
+  (lua_pushcfunction(l, f), lua_pushstring(l, n), lua_call(l, 1, 0))
+#else
+#define lL_openlib(l, n, f) (luaL_requiref(l, n, f, 1), lua_pop(l, 1))
+#endif
+
 #define l_setcfunction(l, n, k, f) \
   (lua_pushcfunction(l, f), lua_setfield(l, (n > 0) ? n : n - 1, k))
 #define l_setmetatable(l, n, k, i, ni) { \
-- 
cgit v1.2.3