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

correction of function tonumber

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1994-11-22 14:02:53 -02:00
parent 68d1091b79
commit 577ae944e9
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
opcode.c
View File

@@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** TecCGraf - PUC-Rio
*/ */
char *rcs_opcode="$Id: opcode.c,v 3.19 1994/11/21 13:30:15 roberto Exp $"; char *rcs_opcode="$Id: opcode.c,v 3.20 1994/11/21 18:22:58 roberto Exp roberto $";
#include <setjmp.h> #include <setjmp.h>
#include <stdio.h> #include <stdio.h>
@@ -138,9 +138,10 @@ static char *lua_strconc (char *l, char *r)
static int lua_tonumber (Object *obj) static int lua_tonumber (Object *obj)
{ {
float t; float t;
char c;
if (tag(obj) != LUA_T_STRING) if (tag(obj) != LUA_T_STRING)
return 1; return 1;
else if (sscanf(svalue(obj), "%f %*c",&t) == 1) else if (sscanf(svalue(obj), "%f %c",&t, &c) == 1)
{ {
nvalue(obj) = t; nvalue(obj) = t;
tag(obj) = LUA_T_NUMBER; tag(obj) = LUA_T_NUMBER;