Lines Matching refs:powers
30 ;; bigloo -static-bigloo -o generate-ten-powers generate-ten-powers.scm
34 (module gen-ten-powers
88 (define (generate-powers from to mantissa-size)
135 (define (print-c powers from to struct-type
149 (define (print-powers-reduced n)
158 ((>= i (vector-length powers))
164 (let* ((power (vector-ref powers i))
187 "// hold the cached powers of ten. Each entry will hold a 64-bit\n"
205 (print-powers-reduced 1)
206 (print-powers-reduced 2)
207 (print-powers-reduced 3)
208 (print-powers-reduced 4)
209 (print-powers-reduced 5)
210 (print-powers-reduced 6)
211 (print-powers-reduced 7)
212 (print-powers-reduced 8)
213 (print-powers-reduced 9)
214 (print-powers-reduced 10)
215 (print-powers-reduced 11)
216 (print-powers-reduced 12)
217 (print-powers-reduced 13)
218 (print-powers-reduced 14)
219 (print-powers-reduced 15)
220 (print-powers-reduced 16)
221 (print-powers-reduced 17)
222 (print-powers-reduced 18)
223 (print-powers-reduced 19)
224 (print-powers-reduced 20)
257 (error "generate-ten-powers"
261 (error "generate-ten-powers"
265 (error "generate-ten-powers"
269 (error "generate-ten-powers"
273 (let ((dividers (generate-powers *from* *to* *mantissa-size*))