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

Added a coercion to inexact to avoid the case: (* <float> 0) -> exact 0

Browse Source 
which causes a segfault when the result is used with an unsafe-fl
operation.
This commit is contained in:
Vincent St-Amour 2010-06-11 16:33:06 -04:00
parent cff4eef7b2
commit ff1c3874cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/racket/benchmarks/shootout/typed/heapsort.rktl
View File

@ -17,7 +17,7 @@
(: gen_random (Float -> Float)) (: gen_random (Float -> Float))
(define (gen_random max) (define (gen_random max)
(set! LAST (modulo (+ (* LAST IA) IC) IM)) (set! LAST (modulo (+ (* LAST IA) IC) IM))
(/ (* max LAST) IM)) (/ (* max (exact->inexact LAST)) IM))
(: heapsort (Natural (Vectorof Float) -> (U Void True))) (: heapsort (Natural (Vectorof Float) -> (U Void True)))
(define (heapsort n ra) (define (heapsort n ra)