diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-01-12 16:38:35 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-01-12 16:38:35 -0200 |
| commit | 8396027516c861c536e6604c7156cdf57e1dbc0d (patch) | |
| tree | fba6c036ce658ecb11a0a99d9bcaf2974c09f9e6 | |
| parent | e24f7fd2d2d17e19f27707d5ca5edaf7e3af2783 (diff) | |
| download | lua-8396027516c861c536e6604c7156cdf57e1dbc0d.tar.gz lua-8396027516c861c536e6604c7156cdf57e1dbc0d.tar.bz2 lua-8396027516c861c536e6604c7156cdf57e1dbc0d.zip | |
better precision when converting numbers to strings.
| -rw-r--r-- | lvm.c | 4 |
1 files changed, 2 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lvm.c,v 1.35 1998/12/30 13:16:50 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 1.36 1998/12/30 17:26:49 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 | */ |
| @@ -85,7 +85,7 @@ int luaV_tostring (TObject *obj) { | |||
| 85 | if ((real)LONG_MIN <= f && f <= (real)LONG_MAX && (real)(i=(long)f) == f) | 85 | if ((real)LONG_MIN <= f && f <= (real)LONG_MAX && (real)(i=(long)f) == f) |
| 86 | sprintf(s, "%ld", i); | 86 | sprintf(s, "%ld", i); |
| 87 | else | 87 | else |
| 88 | sprintf(s, "%g", (double)nvalue(obj)); | 88 | sprintf(s, "%.15g", (double)nvalue(obj)); |
| 89 | tsvalue(obj) = luaS_new(s); | 89 | tsvalue(obj) = luaS_new(s); |
| 90 | ttype(obj) = LUA_T_STRING; | 90 | ttype(obj) = LUA_T_STRING; |
| 91 | return 0; | 91 | return 0; |
