fix issue #112 and issue #113.

author: Li Jin <dragon-fly@qq.com> 2022-10-31 11:32:33 +0800
committer: Li Jin <dragon-fly@qq.com> 2022-11-09 11:29:32 +0800
commit: 417ec1a37922c6178900adfec70628cad46731ff (patch)
tree: a5a2d74927ad2c41b5a16264a78409e1c0334b72 /win-build/Lua53/lvm.h
parent: 3dd607c8887d2fe0186668aabca31bb84a41e2da (diff)
download: yuescript-417ec1a37922c6178900adfec70628cad46731ff.tar.gz
yuescript-417ec1a37922c6178900adfec70628cad46731ff.tar.bz2
yuescript-417ec1a37922c6178900adfec70628cad46731ff.zip
1 files changed, 113 insertions, 0 deletions
diff --git a/win-build/Lua53/lvm.h b/win-build/Lua53/lvm.h
new file mode 100644
index 0000000..a8f954f
--- /dev/null
+++ b/win-build/Lua53/lvm.h
@@ -0,0 +1,113 @@
+/*
+** $Id: lvm.h,v 2.41.1.1 2017/04/19 17:20:42 roberto Exp $
+** Lua virtual machine
+** See Copyright Notice in lua.h
+*/
+#ifndef lvm_h
+#define lvm_h
+#include "ldo.h"
+#include "lobject.h"
+#include "ltm.h"
+#if !defined(LUA_NOCVTN2S)
+#define cvt2str(o)      ttisnumber(o)
+#else
+#define cvt2str(o)      0       /* no conversion from numbers to strings */
+#endif
+#if !defined(LUA_NOCVTS2N)
+#define cvt2num(o)      ttisstring(o)
+#else
+#define cvt2num(o)      0       /* no conversion from strings to numbers */
+#endif
+/*
+** You can define LUA_FLOORN2I if you want to convert floats to integers
+** by flooring them (instead of raising an error if they are not
+** integral values)
+*/
+#if !defined(LUA_FLOORN2I)
+#define LUA_FLOORN2I            0
+#endif
+#define tonumber(o,n) \
+        (ttisfloat(o) ? (*(n) = fltvalue(o), 1) : luaV_tonumber_(o,n))
+#define tointeger(o,i) \
+    (ttisinteger(o) ? (*(i) = ivalue(o), 1) : luaV_tointeger(o,i,LUA_FLOORN2I))
+#define intop(op,v1,v2) l_castU2S(l_castS2U(v1) op l_castS2U(v2))
+#define luaV_rawequalobj(t1,t2)         luaV_equalobj(NULL,t1,t2)
+/*
+** fast track for 'gettable': if 't' is a table and 't[k]' is not nil,
+** return 1 with 'slot' pointing to 't[k]' (final result).  Otherwise,
+** return 0 (meaning it will have to check metamethod) with 'slot'
+** pointing to a nil 't[k]' (if 't' is a table) or NULL (otherwise).
+** 'f' is the raw get function to use.
+*/
+#define luaV_fastget(L,t,k,slot,f) \
+  (!ttistable(t)  \
+   ? (slot = NULL, 0)  /* not a table; 'slot' is NULL and result is 0 */  \
+   : (slot = f(hvalue(t), k),  /* else, do raw access */  \
+      !ttisnil(slot)))  /* result not nil? */
+/*
+** standard implementation for 'gettable'
+*/
+#define luaV_gettable(L,t,k,v) { const TValue *slot; \
+  if (luaV_fastget(L,t,k,slot,luaH_get)) { setobj2s(L, v, slot); } \
+  else luaV_finishget(L,t,k,v,slot); }
+/*
+** Fast track for set table. If 't' is a table and 't[k]' is not nil,
+** call GC barrier, do a raw 't[k]=v', and return true; otherwise,
+** return false with 'slot' equal to NULL (if 't' is not a table) or
+** 'nil'. (This is needed by 'luaV_finishget'.) Note that, if the macro
+** returns true, there is no need to 'invalidateTMcache', because the
+** call is not creating a new entry.
+*/
+#define luaV_fastset(L,t,k,slot,f,v) \
+  (!ttistable(t) \
+   ? (slot = NULL, 0) \
+   : (slot = f(hvalue(t), k), \
+     ttisnil(slot) ? 0 \
+     : (luaC_barrierback(L, hvalue(t), v), \
+        setobj2t(L, cast(TValue *,slot), v), \
+        1)))
+#define luaV_settable(L,t,k,v) { const TValue *slot; \
+  if (!luaV_fastset(L,t,k,slot,luaH_get,v)) \
+    luaV_finishset(L,t,k,v,slot); }
+LUAI_FUNC int luaV_equalobj (lua_State *L, const TValue *t1, const TValue *t2);
+LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r);
+LUAI_FUNC int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r);
+LUAI_FUNC int luaV_tonumber_ (const TValue *obj, lua_Number *n);
+LUAI_FUNC int luaV_tointeger (const TValue *obj, lua_Integer *p, int mode);
+LUAI_FUNC void luaV_finishget (lua_State *L, const TValue *t, TValue *key,
+                               StkId val, const TValue *slot);
+LUAI_FUNC void luaV_finishset (lua_State *L, const TValue *t, TValue *key,
+                               StkId val, const TValue *slot);
+LUAI_FUNC void luaV_finishOp (lua_State *L);
+LUAI_FUNC void luaV_execute (lua_State *L);
+LUAI_FUNC void luaV_concat (lua_State *L, int total);
+LUAI_FUNC lua_Integer luaV_div (lua_State *L, lua_Integer x, lua_Integer y);
+LUAI_FUNC lua_Integer luaV_mod (lua_State *L, lua_Integer x, lua_Integer y);
+LUAI_FUNC lua_Integer luaV_shiftl (lua_Integer x, lua_Integer y);
+LUAI_FUNC void luaV_objlen (lua_State *L, StkId ra, const TValue *rb);
+#endif
author	Li Jin <dragon-fly@qq.com>	2022-10-31 11:32:33 +0800
committer	Li Jin <dragon-fly@qq.com>	2022-11-09 11:29:32 +0800
commit	417ec1a37922c6178900adfec70628cad46731ff (patch)
tree	a5a2d74927ad2c41b5a16264a78409e1c0334b72 /win-build/Lua53/lvm.h
parent	3dd607c8887d2fe0186668aabca31bb84a41e2da (diff)
download	yuescript-417ec1a37922c6178900adfec70628cad46731ff.tar.gz yuescript-417ec1a37922c6178900adfec70628cad46731ff.tar.bz2 yuescript-417ec1a37922c6178900adfec70628cad46731ff.zip

diff --git a/win-build/Lua53/lvm.h b/win-build/Lua53/lvm.h new file mode 100644 index 0000000..a8f954f --- /dev/null +++ b/win-build/Lua53/lvm.h
@@ -0,0 +1,113 @@
	1	/*
	2	** $Id: lvm.h,v 2.41.1.1 2017/04/19 17:20:42 roberto Exp $
	3	** Lua virtual machine
	4	** See Copyright Notice in lua.h
	5	*/
	6
	7	#ifndef lvm_h
	8	#define lvm_h
	9
	10
	11	#include "ldo.h"
	12	#include "lobject.h"
	13	#include "ltm.h"
	14
	15
	16	#if !defined(LUA_NOCVTN2S)
	17	#define cvt2str(o) ttisnumber(o)
	18	#else
	19	#define cvt2str(o) 0 /* no conversion from numbers to strings */
	20	#endif
	21
	22
	23	#if !defined(LUA_NOCVTS2N)
	24	#define cvt2num(o) ttisstring(o)
	25	#else
	26	#define cvt2num(o) 0 /* no conversion from strings to numbers */
	27	#endif
	28
	29
	30	/*
	31	** You can define LUA_FLOORN2I if you want to convert floats to integers
	32	** by flooring them (instead of raising an error if they are not
	33	** integral values)
	34	*/
	35	#if !defined(LUA_FLOORN2I)
	36	#define LUA_FLOORN2I 0
	37	#endif
	38
	39
	40	#define tonumber(o,n) \
	41	(ttisfloat(o) ? (*(n) = fltvalue(o), 1) : luaV_tonumber_(o,n))
	42
	43	#define tointeger(o,i) \
	44	(ttisinteger(o) ? (*(i) = ivalue(o), 1) : luaV_tointeger(o,i,LUA_FLOORN2I))
	45
	46	#define intop(op,v1,v2) l_castU2S(l_castS2U(v1) op l_castS2U(v2))
	47
	48	#define luaV_rawequalobj(t1,t2) luaV_equalobj(NULL,t1,t2)
	49
	50
	51	/*
	52	** fast track for 'gettable': if 't' is a table and 't[k]' is not nil,
	53	** return 1 with 'slot' pointing to 't[k]' (final result). Otherwise,
	54	** return 0 (meaning it will have to check metamethod) with 'slot'
	55	** pointing to a nil 't[k]' (if 't' is a table) or NULL (otherwise).
	56	** 'f' is the raw get function to use.
	57	*/
	58	#define luaV_fastget(L,t,k,slot,f) \
	59	(!ttistable(t) \
	60	? (slot = NULL, 0) /* not a table; 'slot' is NULL and result is 0 */ \
	61	: (slot = f(hvalue(t), k), /* else, do raw access */ \
	62	!ttisnil(slot))) /* result not nil? */
	63
	64	/*
	65	** standard implementation for 'gettable'
	66	*/
	67	#define luaV_gettable(L,t,k,v) { const TValue *slot; \
	68	if (luaV_fastget(L,t,k,slot,luaH_get)) { setobj2s(L, v, slot); } \
	69	else luaV_finishget(L,t,k,v,slot); }
	70
	71
	72	/*
	73	** Fast track for set table. If 't' is a table and 't[k]' is not nil,
	74	** call GC barrier, do a raw 't[k]=v', and return true; otherwise,
	75	** return false with 'slot' equal to NULL (if 't' is not a table) or
	76	** 'nil'. (This is needed by 'luaV_finishget'.) Note that, if the macro
	77	** returns true, there is no need to 'invalidateTMcache', because the
	78	** call is not creating a new entry.
	79	*/
	80	#define luaV_fastset(L,t,k,slot,f,v) \
	81	(!ttistable(t) \
	82	? (slot = NULL, 0) \
	83	: (slot = f(hvalue(t), k), \
	84	ttisnil(slot) ? 0 \
	85	: (luaC_barrierback(L, hvalue(t), v), \
	86	setobj2t(L, cast(TValue *,slot), v), \
	87	1)))
	88
	89
	90	#define luaV_settable(L,t,k,v) { const TValue *slot; \
	91	if (!luaV_fastset(L,t,k,slot,luaH_get,v)) \
	92	luaV_finishset(L,t,k,v,slot); }
	93
	94
	95
	96	LUAI_FUNC int luaV_equalobj (lua_State L, const TValue t1, const TValue *t2);
	97	LUAI_FUNC int luaV_lessthan (lua_State L, const TValue l, const TValue *r);
	98	LUAI_FUNC int luaV_lessequal (lua_State L, const TValue l, const TValue *r);
	99	LUAI_FUNC int luaV_tonumber_ (const TValue obj, lua_Number n);
	100	LUAI_FUNC int luaV_tointeger (const TValue obj, lua_Integer p, int mode);
	101	LUAI_FUNC void luaV_finishget (lua_State L, const TValue t, TValue *key,
	102	StkId val, const TValue *slot);
	103	LUAI_FUNC void luaV_finishset (lua_State L, const TValue t, TValue *key,
	104	StkId val, const TValue *slot);
	105	LUAI_FUNC void luaV_finishOp (lua_State *L);
	106	LUAI_FUNC void luaV_execute (lua_State *L);
	107	LUAI_FUNC void luaV_concat (lua_State *L, int total);
	108	LUAI_FUNC lua_Integer luaV_div (lua_State *L, lua_Integer x, lua_Integer y);
	109	LUAI_FUNC lua_Integer luaV_mod (lua_State *L, lua_Integer x, lua_Integer y);
	110	LUAI_FUNC lua_Integer luaV_shiftl (lua_Integer x, lua_Integer y);
	111	LUAI_FUNC void luaV_objlen (lua_State L, StkId ra, const TValue rb);
	112
	113	#endif