rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

"%.16g" already formats integers as integers, so we do not need an 

alternative "%ld" convertion in "tostring".
This commit is contained in:
Roberto Ierusalimschy 1999-01-13 17:09:04 -02:00
parent e03767b3eb
commit fb663f768d
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lvm.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lvm.c,v 1.36 1998/12/30 17:26:49 roberto Exp roberto $ ** $Id: lvm.c,v 1.37 1999/01/12 18:38:35 roberto Exp roberto $
** Lua virtual machine ** Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -51,8 +51,7 @@ static TaggedString *strconc (TaggedString *l, TaggedString *r) {
} }
int luaV_tonumber (TObject *obj) { int luaV_tonumber (TObject *obj) { /* LUA_NUMBER */
/* LUA_NUMBER */
if (ttype(obj) != LUA_T_STRING) if (ttype(obj) != LUA_T_STRING)
return 1; return 1;
else { else {
@ -74,18 +73,12 @@ int luaV_tonumber (TObject *obj) {
} }
int luaV_tostring (TObject *obj) { int luaV_tostring (TObject *obj) { /* LUA_NUMBER */
/* LUA_NUMBER */
if (ttype(obj) != LUA_T_NUMBER) if (ttype(obj) != LUA_T_NUMBER)
return 1; return 1;
else { else {
char s[60]; char s[32]; /* 16 digits, signal, point and \0 (+ some extra...) */
real f = nvalue(obj); sprintf(s, "%.16g", (double)nvalue(obj));
long i;
if ((real)LONG_MIN <= f && f <= (real)LONG_MAX && (real)(i=(long)f) == f)
sprintf(s, "%ld", i);
else
sprintf(s, "%.15g", (double)nvalue(obj));
tsvalue(obj) = luaS_new(s); tsvalue(obj) = luaS_new(s);
ttype(obj) = LUA_T_STRING; ttype(obj) = LUA_T_STRING;
return 0; return 0;