722 |
vs_push((object)integer_part); |
vs_push((object)integer_part); |
723 |
if (i >= end) |
if (i >= end) |
724 |
goto NO_NUMBER; |
goto NO_NUMBER; |
725 |
|
|
726 |
|
j=i; |
727 |
|
|
728 |
#define MOST_POSITIVE_FIX (((unsigned int) (~0) ) /2) |
#define MOST_POSITIVE_FIX (((unsigned int) (~0) ) /2) |
729 |
#define TEN_EXPT_9 1000000000 |
#define TEN_EXPT_9 1000000000 |
730 |
|
|
767 |
if (i >= end) |
if (i >= end) |
768 |
goto MAKE_INTEGER; |
goto MAKE_INTEGER; |
769 |
if (s[i] == '/') { |
if (s[i] == '/') { |
770 |
i++; |
if (i==j || ++i >= end || (d = digitp(s[i], radix)) < 0) |
771 |
|
goto NO_NUMBER; |
772 |
goto DENOMINATOR; |
goto DENOMINATOR; |
773 |
} |
} |
774 |
|
|
782 |
if (s[i] == '.') { |
if (s[i] == '.') { |
783 |
if (++i >= end) |
if (++i >= end) |
784 |
goto MAKE_INTEGER; |
goto MAKE_INTEGER; |
785 |
else if (digitp(s[i], radix) >= 0) |
else if ((d=digitp(s[i], radix)) >= 0) |
786 |
goto FRACTION; |
goto FRACTION; |
787 |
else if (is_exponent_marker(s[i])) { |
else if (is_exponent_marker(s[i])) { |
788 |
fraction |
fraction |
813 |
FRACTION: |
FRACTION: |
814 |
if (radix!=10) |
if (radix!=10) |
815 |
FEerror("Parse_number radix error", 0); |
FEerror("Parse_number radix error", 0); |
816 |
if ((d = digitp(s[i], radix)) < 0) |
/* if ((d = digitp(s[i], radix)) < 0) */ |
817 |
goto NO_NUMBER; |
/* goto NO_NUMBER; */ |
818 |
fraction = 0.0; |
fraction = 0.0; |
819 |
fraction_unit = 1000000000.0; |
fraction_unit = 1000000000.0; |
820 |
for (;;) { |
for (;;) { |
912 |
big_register_0 = new_bignum(); |
big_register_0 = new_bignum(); |
913 |
zero_big(big_register_0); |
zero_big(big_register_0); |
914 |
|
|
915 |
if ((d = digitp(s[i], radix)) < 0) |
/* if ((d = digitp(s[i], radix)) < 0) */ |
916 |
goto NO_NUMBER; |
/* goto NO_NUMBER; */ |
917 |
integer_part = big_register_0; |
integer_part = big_register_0; |
918 |
/* zero_big(integer_part); */ |
/* zero_big(integer_part); */ |
919 |
do { |
do { |