diff options
Diffstat (limited to 'lvm.c')
-rw-r--r-- | lvm.c | 16 |
1 files changed, 4 insertions, 12 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lvm.c,v 2.184 2014/01/22 20:02:04 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 2.185 2014/01/27 13:34:32 roberto Exp roberto $ |
3 | ** Lua virtual machine | 3 | ** Lua virtual machine |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -53,17 +53,9 @@ int luaV_tostring (lua_State *L, StkId obj) { | |||
53 | return 0; | 53 | return 0; |
54 | else { | 54 | else { |
55 | char buff[MAXNUMBER2STR]; | 55 | char buff[MAXNUMBER2STR]; |
56 | size_t len; | 56 | size_t len = (ttisinteger(obj)) |
57 | if (ttisinteger(obj)) | 57 | ? lua_integer2str(buff, ivalue(obj)) |
58 | len = lua_integer2str(buff, ivalue(obj)); | 58 | : lua_number2str(buff, fltvalue(obj)); |
59 | else { | ||
60 | len = lua_number2str(buff, fltvalue(obj)); | ||
61 | if (strspn(buff, "-0123456789") == len) { /* look like an integer? */ | ||
62 | buff[len++] = '.'; /* add a '.0' */ | ||
63 | buff[len++] = '0'; | ||
64 | buff[len] = '\0'; | ||
65 | } | ||
66 | } | ||
67 | setsvalue2s(L, obj, luaS_newlstr(L, buff, len)); | 59 | setsvalue2s(L, obj, luaS_newlstr(L, buff, len)); |
68 | return 1; | 60 | return 1; |
69 | } | 61 | } |