mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-01-27 03:22:04 +03:00
Code Issues 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
opcode.c
View File

@ -3,7 +3,7 @@
** 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 <stdio.h>
@ -138,9 +138,10 @@ static char *lua_strconc (char *l, char *r)
static int lua_tonumber (Object *obj)
{
float t;
char c;
if (tag(obj) != LUA_T_STRING)
return 1;
else if (sscanf(svalue(obj), "%f %*c",&t) == 1)
else if (sscanf(svalue(obj), "%f %c",&t, &c) == 1)
{
nvalue(obj) = t;
tag(obj) = LUA_T_NUMBER;