Lines Matching refs:ten
30 ;; bigloo -static-bigloo -o generate-ten-powers generate-ten-powers.scm
34 (module gen-ten-powers
96 ;; Basically we will have a ten^i that we will *10 at each iteration. We
97 ;; want to create the matissa of 1/ten^i. However the mantissa must be
99 ;; We shift by multiplying with two^e. -> We encode two^e*(1/ten^i) ==
100 ;; two^e/ten^i.
102 (ten^i #z10)
106 (if (>bx (/bx (*bx #z2 two^e) ten^i) max-container)
112 (v (rounded-/bx two^e ten^i))
115 (loop (+fx i 1) (*bx ten^i #z10) two^e e))
116 (loop i ten^i (bit-lshbx two^e 1) (+fx e 1)))))
187 "// hold the cached powers of ten. Each entry will hold a 64-bit\n"
257 (error "generate-ten-powers"
261 (error "generate-ten-powers"
265 (error "generate-ten-powers"
269 (error "generate-ten-powers"
