[Git][cmucl/cmucl][rtoy-xoro] Put back the original version, optimized for x86.

[Raymond Toy]

Raymond Toy pushed to branch rtoy-xoro at cmucl / cmucl


Commits:
95a01145 by Raymond Toy at 2017-12-16T21:05:41-08:00
Put back the original version, optimized for x86.

- - - - -


1 changed file:

- src/code/rand-xoroshiro.lisp


Changes:

=====================================
src/code/rand-xoroshiro.lisp
=====================================
--- a/src/code/rand-xoroshiro.lisp
+++ b/src/code/rand-xoroshiro.lisp
@@ -142,12 +142,13 @@
 	   (let ((s (xoro-random-state-state rng-state)))
 	     (declare (type (simple-array double-float (2)) s))
 	     (multiple-value-bind (r1 r0)
-		 (xoroshiro-next-portable s)
+		 (xoroshiro-next s)
 	       (setf (xoro-random-state-rand rng-state) r0)
 	       (setf (xoro-random-state-cached-p rng-state) t)
 	       r1))))))
 
-(defun xoroshiro-next-portable (state)
+#-x86
+(defun xoroshiro-next (state)
   (declare (type (simple-array double-float (2)) state))
   (flet ((rotl-55 (x1 x0)
 	   (declare (type (unsigned-byte 32) x0 x1)



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/95a011458bb9f2bad346b92e927fabe4b4504a30

---
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/95a011458bb9f2bad346b92e927fabe4b4504a30
You're receiving this email because of your account on gitlab.common-lisp.net.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20171217/4c99219f/attachment.html>