steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ryu: minor locals cleanup, don't use 5drop.

freebsd-work
John Benediktsson 2019-01-03 21:29:53 -08:00
parent aa67ab6ec4
commit 2d0e716362
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/ryu/ryu.factor
View File

@ -132,9 +132,9 @@ CONSTANT: offset 1023 ! (1 << (exponentBits - 1)) - 1
PRIVATE>
:: print-float ( value -- string )
value >float unpack-bits [
[ 5drop ] dip
] [| e2 m2 acceptBounds ieeeExponent<=1 sign |
value >float unpack-bits
:> ( e2 m2 acceptBounds ieeeExponent<=1 sign output )
output [
m2 4 * :> mv
mantissaBits 2^ m2 = not ieeeExponent<=1 or 1 0 ? :> mmShift
f f 0 0 0 :> ( vmIsTrailingZeros! vrIsTrailingZeros! e10! vr! vm! )
@ -177,6 +177,6 @@ PRIVATE>
[ decimal-length e10 + 1 - sign ] keep ! exp sign vp
acceptBounds vmIsTrailingZeros vrIsTrailingZeros vr vm
prepare-output produce-output
] if* ;
] unless* ;
ALIAS: d2s print-float