lua

commit dc6d0dcc09126e70a4f6b36130752d0bd19aaf50
parent 7cfb5ff41f993c0f7e248f6830e86055bddcd3ab
Author: Waldemar Celes <celes@tecgraf.puc-rio.br>
Date:   Tue, 27 Sep 1994 18:43:11 -0300

retirar especificador de formato %n da funcao ToReal e
acertar funcao lua_convtonumber.

Diffstat:
M
opcode.c
 | 
9
++++-----

1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/opcode.c b/opcode.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
 
-char *rcs_opcode="$Id: opcode.c,v 2.6 1994/09/08 16:51:49 celes Exp $";
+char *rcs_opcode="$Id: opcode.c,v 2.7 1994/09/20 15:11:11 celes Exp celes $";
 
 #include <stdio.h>
 #include <stdlib.h>
@@ -92,10 +92,9 @@ static char *lua_strconc (char *l, char *r)
 
 static int ToReal (char* s, float* f)
 {
- int n;
+ char c;
  float t;
- sscanf(s,"%f %n",&t,&n);
- if (s[n]==0) { *f=t; return 1; } else return 0;
+ if (sscanf(s,"%f %c",&t,&c) == 1) { *f=t; return 1; } else return 0;
 }
 
 /*
@@ -132,7 +131,7 @@ static Object *lua_convtonumber (Object *obj)
   return &cvt;
  }
   
- if (tag(obj) == T_STRING && ToReal(svalue(obj), &nvalue(obj)))
+ if (tag(obj) == T_STRING && ToReal(svalue(obj), &nvalue(&cvt)))
   tag(&cvt) = T_NUMBER;
  else 
   tag(&cvt) = T_NIL;