issue #100

dibyendumajumdar · Sep 28, 2016 · 434afa8 · 434afa8
1 parent 354d219
commit 434afa8
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 2 deletions.
diff --git a/include/lobject.h b/include/lobject.h
@@ -58,6 +58,9 @@
 #define LUA_TNUMFLT	(LUA_TNUMBER | (0 << 4))  /* float numbers */
 #define LUA_TNUMINT	(LUA_TNUMBER | (1 << 4))  /* integer numbers */
 
+#define RAVI_TIARRAY (LUA_TTABLE | (1 << 4))  /* Ravi int array */
+#define RAVI_TFARRAY (LUA_TTABLE | (2 << 4))  /* Ravi float array */
+
 
 /* Bit mark for collectable types */
 #define BIT_ISCOLLECTABLE	(1 << 6)
@@ -148,7 +151,10 @@ typedef struct lua_TValue {
 #define ttisstring(o)		checktype((o), LUA_TSTRING)
 #define ttisshrstring(o)	checktag((o), ctb(LUA_TSHRSTR))
 #define ttislngstring(o)	checktag((o), ctb(LUA_TLNGSTR))
-#define ttistable(o)		checktag((o), ctb(LUA_TTABLE))
+#define ttistable(o)		checktype((o), LUA_TTABLE)
+#define ttisiarray(o)    checktag((o), ctb(RAVI_TIARRAY))
+#define ttisfarray(o)    checktag((o), ctb(RAVI_TFARRAY))
+#define ttisLtable(o)    checktag((o), ctb(LUA_TTABLE))
 #define ttisfunction(o)		checktype(o, LUA_TFUNCTION)
 #define ttisclosure(o)		((rttype(o) & 0x1F) == LUA_TFUNCTION)
 #define ttisCclosure(o)		checktag((o), ctb(LUA_TCCL))
@@ -252,6 +258,17 @@ typedef struct lua_TValue {
     val_(io).gc = obj2gco(x_); settt_(io, ctb(LUA_TTABLE)); \
     checkliveness(L,io); }
 
+#define setiarrayvalue(L,obj,x) \
+  { TValue *io = (obj); Table *x_ = (x); \
+    val_(io).gc = obj2gco(x_); settt_(io, ctb(RAVI_TIARRAY)); \
+    checkliveness(L,io); }
+
+#define setfarrayvalue(L,obj,x) \
+  { TValue *io = (obj); Table *x_ = (x); \
+    val_(io).gc = obj2gco(x_); settt_(io, ctb(RAVI_TFARRAY)); \
+    checkliveness(L,io); }
+
+
 #define setdeadvalue(obj)	settt_(obj, LUA_TDEADKEY)
 
 

diff --git a/include/ravi_llvmcodegen.h b/include/ravi_llvmcodegen.h
@@ -82,7 +82,7 @@ enum LuaTypeCode {
   LUA__TLIGHTUSERDATA = LUA_TLIGHTUSERDATA,
   LUA__TNUMBER = LUA_TNUMBER,
   LUA__TSTRING = ctb(LUA_TSTRING),
-  LUA__TTABLE = ctb(LUA_TTABLE),
+  LUA__TTABLE = LUA_TTABLE,
   LUA__TFUNCTION = ctb(LUA_TFUNCTION),
   LUA__TUSERDATA = ctb(LUA_TUSERDATA),
   LUA__TTHREAD = ctb(LUA_TTHREAD),