d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

One less significant digit: 20 was too much

Browse source
This commit is contained in:
ceriel 1991-02-18 11:43:44 +00:00
parent cf0cd51810
commit 3660ea15c5
2 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
modules/src/flt_arith/flt_str2fl.c
View file

@ -425,7 +425,7 @@ flt_flt2str(e, buf, bufsize)
char *buf;
{
#define NDIG 20
#define NDIG 19
int sign, dp;
register int i;
register char *s1;

22
modules/src/flt_arith/test.c
View file

@ -5,17 +5,17 @@ struct tests {
int oper;
char *result;
} tests[] = {
{ "1.0", 0, 0, "1.0000000000000000000" },
{ "-1.0", 0, 0, "-1.0000000000000000000" },
{ "0.0", 0, 0, "0.0000000000000000000" },
{ "1.234567", 0, 0, "1.2345670000000000000" },
{ "1.234567", 0, 'D', "1.0000000000000000000" },
{ "1.234567", 0, 'R', "2.3456700000000000000e-1" },
{ "32768", "32768", '+', "6.5536000000000000000e+4" },
{ "32768", "32767", '-', "1.0000000000000000000" },
{ "32768", "32768", '*', "1.0737418240000000000e+9" },
{ "32768", "32768", '/', "1.0000000000000000000" },
{ "1.234567e20", "-1.234567e20", '+', "0.0000000000000000000" },
{ "1.0", 0, 0, "1.000000000000000000" },
{ "-1.0", 0, 0, "-1.000000000000000000" },
{ "0.0", 0, 0, "0.000000000000000000" },
{ "1.234567", 0, 0, "1.234567000000000000" },
{ "1.234567", 0, 'D', "1.000000000000000000" },
{ "1.234567", 0, 'R', "2.345670000000000000e-1" },
{ "32768", "32768", '+', "6.553600000000000000e+4" },
{ "32768", "32767", '-', "1.000000000000000000" },
{ "32768", "32768", '*', "1.073741824000000000e+9" },
{ "32768", "32768", '/', "1.000000000000000000" },
{ "1.234567e20", "-1.234567e20", '+', "0.000000000000000000" },
{ 0, 0, 0, 0}
};