Raymond Toy pushed to branch rtoy-xoro at cmucl / cmucl
Commits:
-
95a01145
by Raymond Toy at 2017-12-16T21:05:41-08:00
1 changed file:
Changes:
| ... | ... | @@ -142,12 +142,13 @@ |
| 142 | 142 |
(let ((s (xoro-random-state-state rng-state)))
|
| 143 | 143 |
(declare (type (simple-array double-float (2)) s))
|
| 144 | 144 |
(multiple-value-bind (r1 r0)
|
| 145 |
- (xoroshiro-next-portable s)
|
|
| 145 |
+ (xoroshiro-next s)
|
|
| 146 | 146 |
(setf (xoro-random-state-rand rng-state) r0)
|
| 147 | 147 |
(setf (xoro-random-state-cached-p rng-state) t)
|
| 148 | 148 |
r1))))))
|
| 149 | 149 |
|
| 150 |
-(defun xoroshiro-next-portable (state)
|
|
| 150 |
+#-x86
|
|
| 151 |
+(defun xoroshiro-next (state)
|
|
| 151 | 152 |
(declare (type (simple-array double-float (2)) state))
|
| 152 | 153 |
(flet ((rotl-55 (x1 x0)
|
| 153 | 154 |
(declare (type (unsigned-byte 32) x0 x1)
|