suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- updated newrelease to produce the correct log-entry format and

Browse Source 
fixed the existing 9.4.1 log entry
    newrelease, LOG
- replaced a couple of tabs
    number.c

original commit: 0f0468ffd26fcd08c052df484e651ac042d93b74
This commit is contained in:
dybvig 2016-05-18 23:48:37 -04:00
parent aa62ffb153
commit e7852b36e5
3 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
LOG
View File

@ -168,8 +168,13 @@
pdhtml.ss pdhtml.ss
9.4.1 changes: 9.4.1 changes:
* updated version to 9.4.1 - updated version to 9.4.1
bintar BUILDING NOTICE makefiles/Mf-install.in scheme.1.in bintar BUILDING NOTICE makefiles/Mf-install.in scheme.1.in
c/Makefile.i3nt c/Makefile.a6nt c/Makefile.ti3nt c/Makefile.ta6nt c/Makefile.i3nt c/Makefile.a6nt c/Makefile.ti3nt c/Makefile.ta6nt
mats/bldnt.bat workarea c/scheme.rc s/7.ss s/cmacros.ss mats/bldnt.bat workarea c/scheme.rc s/7.ss s/cmacros.ss
release_notes/release_notes.stex csug/csug.stex release_notes/release_notes.stex csug/csug.stex
- updated newrelease to produce the correct log-entry format and
fixed the existing 9.4.1 log entry
newrelease, LOG
- replaced a couple of tabs
number.c

4
c/number.c
View File

@ -1157,7 +1157,7 @@ static double floatify_normalize(p, e, sign, sticky) bigit *p; iptr e; IBOOL sig
if (cutbit) { if (cutbit) {
IBOOL round; IBOOL round;
/* cutbit = 1 => at least half way to next number. round up if odd or /* cutbit = 1 => at least half way to next number. round up if odd or
if there are any bits set to the right of cutbit */ if there are any bits set to the right of cutbit */
round = (mlow & 1) || sticky; round = (mlow & 1) || sticky;
while (!round && n-- > 0) round = *p++ != 0; while (!round && n-- > 0) round = *p++ != 0;
if (round) { if (round) {
@ -1165,7 +1165,7 @@ static double floatify_normalize(p, e, sign, sticky) bigit *p; iptr e; IBOOL sig
if (e == 0 && mlow == hidden_bit) { if (e == 0 && mlow == hidden_bit) {
e = 1; /* squeaking into lowest normalized spot */ e = 1; /* squeaking into lowest normalized spot */
} else if (mlow == hidden_bit * 2) { } else if (mlow == hidden_bit * 2) {
/* don't bother with mlow = mlow >> 1 since hidden bit and up are ignored after this */ /* don't bother with mlow = mlow >> 1 since hidden bit and up are ignored after this */
e += 1; e += 1;
} }
} }

4
newrelease
View File

@ -141,7 +141,7 @@ set updatedfiles = ($updatedfiles csug/csug.stex)
cat ../LOG > LOG cat ../LOG > LOG
echo "" >> LOG echo "" >> LOG
echo "$R changes:" >> LOG echo "$R changes:" >> LOG
echo " * updated version to $R" >> LOG echo "- updated version to $R" >> LOG
echo $updatedfiles | sed -e 's/^/ /' | fmt >> LOG echo $updatedfiles | sed -e 's/^/ /' | fmt >> LOG
exit 0 exit 0