LUA_API void lua_pushunsigned (lua_State *L, lua_Unsigned u) {
lua_Number n=0;
lua_lock(L);
/* printf("u=%d,%u,%x\n",u,u,u);
printf("INT_MAX=%d %u %x, (lua_Unsigned)INT_MAX=%d %u %x (unsigned int)INT_MAX=%d %u %x\n",
INT_MAX,INT_MAX,INT_MAX,
(lua_Unsigned)INT_MAX,(lua_Unsigned)INT_MAX,(lua_Unsigned)INT_MAX,
(unsigned int)INT_MAX,(unsigned int)INT_MAX,(unsigned int)INT_MAX);
printf("((u) <= (lua_Unsigned)INT_MAX) :%d\n",(((unsigned int)u) <= (lua_Unsigned)INT_MAX));
printf("(lua_Number)(int)(u) =%d,%u,%x\n",(lua_Number)(int)(u),(lua_Number)(int)(u),(lua_Number)(int)(u));
printf("(lua_Number)(u) =%f,%u,%x\n",(lua_Number)(u),(lua_Number)(u),(lua_Number)(u));
printf("u=%d,%u,%x\n",u,u,u);
*/
/*printf("n=%d,%u,%x u=%d,%u,%x\n",n,n,n,u,u,u); */
n = lua_unsigned2number(u);
/* printf("n=%f \n",n);
printf("u=%d %u %x n=%d %u %x\n",u,u,u,n,n,n);
printf("n=%d %u %x\n",n,n,n);
printf("u=%d,%u,%x\n",u,u,u);
*/
/* setintptrV(L->top, n);
incr_top(L);
setnumV(L->top, n);
*/
setnumV(L->top, n);
if (LJ_UNLIKELY(tvisnan(L->top)))
setnanV(L->top); /* Canonicalize injected NaNs. */
incr_top(L);
/*setnvalue(L->top, n);
api_incr_top(L);
*/
lua_unlock(L);
}
LUA_API void lua_pushunsigned (lua_State *L, lua_Unsigned u) {
lua_Number n;
lua_lock(L);
n = lua_unsigned2number(u);
setnvalue(L->top, n);
api_incr_top(L);
lua_unlock(L);
}
void lua_pushunsigned (lua_State *L, lua_Unsigned n) {
lua_pushnumber(L, lua_unsigned2number(n));
}
static void lua_pushunsigned (lua_State *L, lua_Unsigned u) {
lua_Number n;
n = lua_unsigned2number(u);
lua_pushnumber(L, n);
}
