** Shift left operation. (Shift right just negates 'y'.) */
| 816 | ** Shift left operation. (Shift right just negates 'y'.) |
| 817 | */ |
| 818 | lua_Integer luaV_shiftl (lua_Integer x, lua_Integer y) { |
| 819 | if (y < 0) { /* shift right? */ |
| 820 | if (y <= -NBITS) return 0; |
| 821 | else return intop(>>, x, -y); |
| 822 | } |
| 823 | else { /* shift left */ |
| 824 | if (y >= NBITS) return 0; |
| 825 | else return intop(<<, x, y); |
| 826 | } |
| 827 | } |
| 828 | |
| 829 | |
| 830 | /* |
no outgoing calls
no test coverage detected