diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-02-05 17:14:53 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-02-05 17:14:53 -0200 |
commit | d438e1379d24f06f027f8fc0e8fc1ff6673b322f (patch) | |
tree | b8ba7c184768198d6b7ade4c65968f644633baa5 /lvm.c | |
parent | 1721d09ac8e55bb4b675cea26cbe6b707fd21a2c (diff) | |
download | lua-d438e1379d24f06f027f8fc0e8fc1ff6673b322f.tar.gz lua-d438e1379d24f06f027f8fc0e8fc1ff6673b322f.tar.bz2 lua-d438e1379d24f06f027f8fc0e8fc1ff6673b322f.zip |
insertion of ".0" in floats with integer values done by "luaL_tolstring",
not by the core
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 | } |