/* Shift left operation. (Shift right just negates 'y'.)  */
lua_Integer luaV_shiftl(lua_Integer x, lua_Integer y)
/* Shift left operation. (Shift right just negates 'y'.)  */
lua_Integer luaV_shiftl(lua_Integer x, lua_Integer y)
{
    if (y <= -NBITS) return 0;
    else return intop(>>, x, -y);
  }
  else {
    if (y >= NBITS) return 0;
    else return intop(<<, x, y);
  }
}