Raymond Toy pushed to branch rtoy-xoro-default at cmucl / cmucl
Commits:
-
448e9970
by Raymond Toy at 2017-12-28T09:53:39-08:00
1 changed file:
Changes:
... | ... | @@ -206,15 +206,17 @@ |
206 | 206 |
|
207 | 207 |
;;;; Random entries:
|
208 | 208 |
|
209 |
-#+x86
|
|
209 |
+;; Sparc and x86 have vops to implement xoroshiro-gen that are much
|
|
210 |
+;; faster than the portable lisp version. Use them.
|
|
211 |
+#+(or x86 sparc)
|
|
210 | 212 |
(declaim (inline xoroshiro-gen))
|
211 |
-#+x86
|
|
213 |
+#+(or x86 sparc)
|
|
212 | 214 |
(defun xoroshiro-gen (state)
|
213 | 215 |
(declare (type (simple-array double-float (2)) state)
|
214 | 216 |
(optimize (speed 3) (safety 0)))
|
215 | 217 |
(vm::xoroshiro-next state))
|
216 | 218 |
|
217 |
-#-x86
|
|
219 |
+#+(or x86 sparc)
|
|
218 | 220 |
(defun xoroshiro-gen (state)
|
219 | 221 |
(declare (type (simple-array double-float (2)) state)
|
220 | 222 |
(optimize (speed 3) (safety 0)))
|