godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

prevent overflow

Browse Source
This commit is contained in:
ceriel 1988-08-10 15:54:15 +00:00
parent 5bde69d625
commit 5bd25f4545
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lang/cem/libcc/gen/atof.c
View File

@ -68,7 +68,7 @@ atof(p)
while (exp) { while (exp) {
if (exp % 2) correction *= exp5; if (exp % 2) correction *= exp5;
exp /= 2; exp /= 2;
exp5 *= exp5; if (exp != 0) exp5 *= exp5;
} }
if (expsign) fl = fl / correction; if (expsign) fl = fl / correction;
else fl = fl * correction; else fl = fl * correction;