nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test first the most common case.

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1999-09-06 17:19:22 -03:00
parent f7fe04d4b7
commit ff9c0da783
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lobject.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lobject.c,v 1.20 1999/08/16 20:52:00 roberto Exp roberto $ ** $Id: lobject.c,v 1.21 1999/09/06 13:55:09 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
*/ */
@@ -130,10 +130,10 @@ int luaO_str2d (const char *s, real *result) { /* LUA_NUMBER */
} }
while (isspace((unsigned char)*s)) s++; while (isspace((unsigned char)*s)) s++;
if (*s != '\0') return 0; /* invalid trailing characters? */ if (*s != '\0') return 0; /* invalid trailing characters? */
if (point > 0) if (point != 0) {
a /= expten(point); if (point > 0) a /= expten(point);
else if (point < 0) else a *= expten(-point);
a *= expten(-point); }
*result = a; *result = a;
return 1; return 1;
} }