diff options
| -rw-r--r-- | lbitlib.c | 5 |
1 files changed, 3 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lbitlib.c,v 1.20 2013/06/21 17:27:24 roberto Exp roberto $ | 2 | ** $Id: lbitlib.c,v 1.21 2013/07/09 17:49:50 roberto Exp roberto $ |
| 3 | ** Standard library for bitwise operations | 3 | ** Standard library for bitwise operations |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -128,7 +128,8 @@ static int b_rot (lua_State *L, int i) { | |||
| 128 | lua_Unsigned r = luaL_checkunsigned(L, 1); | 128 | lua_Unsigned r = luaL_checkunsigned(L, 1); |
| 129 | i &= (LUA_NBITS - 1); /* i = i % NBITS */ | 129 | i &= (LUA_NBITS - 1); /* i = i % NBITS */ |
| 130 | r = trim(r); | 130 | r = trim(r); |
| 131 | r = (r << i) | (r >> (LUA_NBITS - i)); | 131 | if (i != 0) /* avoid undefined shift of LUA_NBITS when i == 0 */ |
| 132 | r = (r << i) | (r >> (LUA_NBITS - i)); | ||
| 132 | lua_pushunsigned(L, trim(r)); | 133 | lua_pushunsigned(L, trim(r)); |
| 133 | return 1; | 134 | return 1; |
| 134 | } | 135 | } |
