|
@ -1,5 +1,5 @@ |
|
|
/*
|
|
|
/*
|
|
|
** $Id: lobject.c,v 2.104 2015/04/11 18:30:08 roberto Exp roberto $ |
|
|
** $Id: lobject.c,v 2.105 2015/06/18 14:26:05 roberto Exp roberto $ |
|
|
** Some generic functions over Lua objects |
|
|
** Some generic functions over Lua objects |
|
|
** See Copyright Notice in lua.h |
|
|
** See Copyright Notice in lua.h |
|
|
*/ |
|
|
*/ |
|
@ -55,9 +55,7 @@ int luaO_int2fb (unsigned int x) { |
|
|
|
|
|
|
|
|
/* converts back */ |
|
|
/* converts back */ |
|
|
int luaO_fb2int (int x) { |
|
|
int luaO_fb2int (int x) { |
|
|
int e = (x >> 3) & 0x1f; |
|
|
return (x < 8) ? x : ((x & 7) + 8) << ((x >> 3) - 1); |
|
|
if (e == 0) return x; |
|
|
|
|
|
else return ((x & 7) + 8) << (e - 1); |
|
|
|
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|