conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

hold integers in 64bit size

This commit is contained in:
Yuichi Nishiwaki 2014-06-25 21:49:28 +09:00
parent 3f2a0d2160
commit 2c84168861
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/read.c
View File

@ -151,10 +151,10 @@ read_symbol(pic_state *pic, struct pic_port *port, char c)
return pic_sym_value(sym); return pic_sym_value(sym);
} }
static int static int64_t
read_uinteger(pic_state *pic, struct pic_port *port, char c) read_uinteger(pic_state *pic, struct pic_port *port, char c)
{ {
int n; int64_t n;
c = skip(port, c); c = skip(port, c);
@ -174,14 +174,14 @@ read_uinteger(pic_state *pic, struct pic_port *port, char c)
static pic_value static pic_value
read_number(pic_state *pic, struct pic_port *port, char c) read_number(pic_state *pic, struct pic_port *port, char c)
{ {
int i, j; int64_t i, j;
i = read_uinteger(pic, port, c); i = read_uinteger(pic, port, c);
if (peek(port) == '.') { if (peek(port) == '.') {
next(port); next(port);
j = read_uinteger(pic, port, next(port)); j = read_uinteger(pic, port, next(port));
return pic_float_value(i + (double)j * pow(10, -snprintf(NULL, 0, "%d", j))); return pic_float_value(i + (double)j * pow(10, -snprintf(NULL, 0, "%lld", j)));
} }
else { else {
return pic_int_value(i); return pic_int_value(i);