diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix .0002 in new ~D 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1455 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-11-13 09:49:18 +00:00
parent fe36f4f441
commit f300bb7cb4
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/iopreds.c
View File

@ -4110,7 +4110,15 @@ format(volatile Term otail, volatile Term oargs, int sno)
}
}
if (repeats) {
if (ptr == tmp1 ||
ptr[-1] == '-') {
f_putc(sno, (int) '0');
}
f_putc(sno, (int) '.');
while (repeats > siz) {
f_putc(sno, (int) '0');
repeats--;
}
while (repeats) {
f_putc(sno, (int) (*ptr++));
repeats--;