| 96 | |
| 97 | |
| 98 | static int b_shift(lua_State *L, lua_Unsigned r, lua_Integer i) { |
| 99 | if (i < 0) { /* shift right? */ |
| 100 | i = -i; |
| 101 | r = trim(r); |
| 102 | if (i >= LUA_NBITS) r = 0; |
| 103 | else r >>= i; |
| 104 | } |
| 105 | else { /* shift left */ |
| 106 | if (i >= LUA_NBITS) r = 0; |
| 107 | else r <<= i; |
| 108 | r = trim(r); |
| 109 | } |
| 110 | pushunsigned(L, r); |
| 111 | return 1; |
| 112 | } |
| 113 | |
| 114 | |
| 115 | static int b_lshift(lua_State *L) { |