added a few comments
This commit is contained in:
15
lvm.c
15
lvm.c
@@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
** $Id: lvm.c,v 2.209 2014/05/12 21:44:17 roberto Exp roberto $
|
** $Id: lvm.c,v 2.210 2014/05/14 19:47:11 roberto Exp roberto $
|
||||||
** Lua virtual machine
|
** Lua virtual machine
|
||||||
** See Copyright Notice in lua.h
|
** See Copyright Notice in lua.h
|
||||||
*/
|
*/
|
||||||
@@ -492,6 +492,9 @@ lua_Integer luaV_mod (lua_State *L, lua_Integer m, lua_Integer n) {
|
|||||||
/* number of bits in an integer */
|
/* number of bits in an integer */
|
||||||
#define NBITS cast_int(sizeof(lua_Integer) * CHAR_BIT)
|
#define NBITS cast_int(sizeof(lua_Integer) * CHAR_BIT)
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Shift left operation. (Shift right just negates 'y'.)
|
||||||
|
*/
|
||||||
lua_Integer luaV_shiftl (lua_Integer x, lua_Integer y) {
|
lua_Integer luaV_shiftl (lua_Integer x, lua_Integer y) {
|
||||||
if (y < 0) { /* shift right? */
|
if (y < 0) { /* shift right? */
|
||||||
if (y <= -NBITS) return 0;
|
if (y <= -NBITS) return 0;
|
||||||
@@ -614,6 +617,14 @@ void luaV_finishOp (lua_State *L) {
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** {==================================================================
|
||||||
|
** Function 'luaV_execute': main interpreter loop
|
||||||
|
** ===================================================================
|
||||||
|
*/
|
||||||
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
** some macros for common tasks in `luaV_execute'
|
** some macros for common tasks in `luaV_execute'
|
||||||
*/
|
*/
|
||||||
@@ -1140,3 +1151,5 @@ void luaV_execute (lua_State *L) {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* }================================================================== */
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user