kyle
/
ulisp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Version 2.5c - 7th February 2019 

Fixes bug in printing floating-point numbers.
This commit is contained in:
David Johnson-Davies 2019-02-07 12:16:07 +00:00 committed by GitHub
parent ff622ee9b3
commit 34ee149ebb
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ulisp-arm.ino
View File

@ -1,5 +1,5 @@
/* uLisp ARM Version 2.5a - www.ulisp.com /* uLisp ARM Version 2.5c - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 1st December 2018 David Johnson-Davies - www.technoblogy.com - 7th February 2019
Licensed under the MIT license: https://opensource.org/licenses/MIT Licensed under the MIT license: https://opensource.org/licenses/MIT
*/ */
@ -3815,7 +3815,13 @@ void pmantissa (float f, pfun_t pfun) {
int d = (int)(i / mul); int d = (int)(i / mul);
pfun(d + '0'); pfun(d + '0');
i = i - d * mul; i = i - d * mul;
if (i == 0) { if (!point) { pfun('.'); pfun('0'); } return; } if (i == 0) {
if (!point) {
for (int k=j; k<sig; k++) pfun('0');
pfun('.'); pfun('0');
}
return;
}
if (j == sig && sig >= 0) { pfun('.'); point = true; } if (j == sig && sig >= 0) { pfun('.'); point = true; }
mul = mul / 10; mul = mul / 10;
} }