luajit: get cdata to not conflict with gmod's vector type

Author: RaphaelIT7

LuaJIT-2.1/src/gmod.cpp

@@ -1,4 +1,9 @@
-#include "gmod.h"
+extern "C"
+{
+	#include "gmod.h"
+	#include "lua.h"
+}
+#include "stdio.h"
 
 namespace std
 {
@@ -200,18 +205,37 @@ extern "C" void lua_init_stack_gmod(lua_State* L1, lua_State* L)
 	}
 }
 
-extern "C" void GMOD_LuaPrint(const char* str, lua_State* L) // Idk how gmod does it
+extern "C" void GMOD_LuaPrint(const char* str, lua_State* L) // Should be how gmod does it
 {
+	if (!L->luabase) // except for this, gmod doesn't do this, but we do making testing jit less of a pain
+	{
+		printf(str);
+		return;
+	}
+
 	((ILuaInterface*)L->luabase)->Msg("%s", str);
 }
 
+struct UserData {
+	void* data;
+	unsigned char type;
+};
+
 extern "C" void GMOD_LuaCreateEmptyUserdata(lua_State* L)
 {
 	//ILuaBase::UserData* udata = (ILuaBase::UserData*)((ILuaBase*)L->luabase)->NewUserdata(sizeof(ILuaBase::UserData)); // Gmod uses CLuaInterface::PushUserType(NULL, 7) Instead
 	//udata->data = nullptr;
 	//udata->type = 7; // 7 = Userdata
 
 	//return udata;
+
+	if (!L->luabase) // just to make testing easier. Gmod doesn't have this.
+	{
+		UserData* pData = (UserData*)lua_newuserdata(L, sizeof(ILuaBase::UserData));
+		pData->data = nullptr;
+		pData->type = 7;
+		return;
+	}
 
 
 	((ILuaBase*)L->luabase)->PushUserType(NULL, 7);

LuaJIT-2.1/src/lj_api.c

@@ -230,16 +230,18 @@ LUA_API int lua_type(lua_State *L, int idx)
 #endif
   } else if (o == niltv(L)) {
     return LUA_TNONE;
-  } else {  /* Magic internal/external tag conversion. ORDER LJ_T */
-    uint32_t t = ~itype(o);
+  } else if(tviscdata(o)) {
+    return LUA_TUSERDATA; // we would return 10 which conflicts with gmod!
+  }  /* Magic internal/external tag conversion. ORDER LJ_T */
+  
+  uint32_t t = ~itype(o);
 #if LJ_64
-    int tt = (int)((U64x(75a06,98042110) >> 4*t) & 15u);
+  int tt = (int)((U64x(75a06,98042110) >> 4*t) & 15u);
 #else
-    int tt = (int)(((t < 8 ? 0x98042110u : 0x75a06u) >> 4*(t&7)) & 15u);
+  int tt = (int)(((t < 8 ? 0x98042110u : 0x75a06u) >> 4*(t&7)) & 15u);
 #endif
-    lj_assertL(tt != LUA_TNIL || tvisnil(o), "bad tag conversion");
-    return tt;
-  }
+  lj_assertL(tt != LUA_TNIL || tvisnil(o), "bad tag conversion");
+  return tt;
 }
 
 LUALIB_API void luaL_checktype(lua_State *L, int idx, int tt)