[Git][cmucl/cmucl][master] 2 commits: Remove bignum-shld and bignum-shrd vops and functions.

[Raymond Toy]

Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
4663279e by Raymond Toy at 2016-03-06T15:31:11-08:00
Remove bignum-shld and bignum-shrd vops and functions.

- - - - -
ee6b86bf by Raymond Toy at 2016-03-12T15:22:06-08:00
Update from logs for snapshot.

- - - - -


3 changed files:

- src/code/bignum.lisp
- src/compiler/x86/arith.lisp
- src/general-info/release-21b.txt


Changes:

=====================================
src/code/bignum.lisp
=====================================
--- a/src/code/bignum.lisp
+++ b/src/code/bignum.lisp
@@ -3697,29 +3697,3 @@ friends is working.
     (unless (= newlen len)
       (%bignum-set-length result newlen))
     result))
-
-;; Shift X left by Shift bits, shifting in bits from Carry-in.
-;; Basically treat x:carry-in as a 64-bit value and shift it left,
-;; returning the top bignum-type bits.
-(defun %shld (x carry-in shift)
-  (declare (type bignum-element-type x carry-in)
-	   (type (unsigned-byte 5) shift))
-  #+x86
-  (%shld x carry-in shift)
-  #-x86
-  (ldb (byte vm:word-bits 0)
-       (logior (ash x shift)
-	       (ash carry-in (- shift vm:word-bits)))))
-
-;; Shift X right by Shift bits, shifting in bits from Carry-in.
-;; Basically treat carry-in:x as a 64-bit value and shift it right,
-;; returning the low bignum-type bits.
-(defun %shrd (x carry-in shift)
-  (declare (type bignum-element-type x carry-in)
-	   (type (unsigned-byte 5) shift))
-  #+x86
-  (%shrd x carry-in shift)
-  #-x86
-  (ldb (byte vm:word-bits 0)
-       (logior (ash x (- shift))
-	       (ash carry-in (- vm:word-bits shift)))))


=====================================
src/compiler/x86/arith.lisp
=====================================
--- a/src/compiler/x86/arith.lisp
+++ b/src/compiler/x86/arith.lisp
@@ -1580,53 +1580,6 @@
     (inst shr tmp 18)
     (inst xor y tmp)))
 
-(define-vop (bignum-shld)
-  (:policy :fast-safe)
-  (:translate bignum::%shld)
-  (:args (x :scs (unsigned-reg unsigned-stack) :target r)
-	 (shift-in :scs (unsigned-reg) :to :result)
-	 (amount :scs (unsigned-reg) :target cl))
-  (:arg-types unsigned-num unsigned-num unsigned-num)
-  (:results (r :scs (unsigned-reg)
-	       :load-if (not (and (sc-is r unsigned-stack)
-				  (location= x r)))))
-  (:result-types unsigned-num)
-  (:temporary (:sc unsigned-reg :offset ecx-offset
-		   :from (:argument 2)) cl)
-  (:generator 3
-    (move cl amount)
-    (move r x)
-    (inst shld r shift-in :cl)))
-  
-(define-vop (bignum-shld-c)
-  (:policy :fast-safe)
-  (:translate bignum::%shld)
-  (:args (x :scs (unsigned-reg unsigned-stack) :target r)
-	 (shift-in :scs (unsigned-reg) :to :save))
-  (:info shift)
-  (:arg-types unsigned-num unsigned-num (:constant (unsigned-byte 5)))
-  (:results (r :scs (unsigned-reg)
-	       :load-if (not (and (sc-is r unsigned-stack)
-				  (location= x r)))))
-  (:result-types unsigned-num)
-  (:generator 2
-    (move r x)
-    (inst shld r shift-in shift)))
-
-(define-vop (bignum-shrd bignum-shld)
-  (:translate bignum::%shrd)
-  (:generator 3
-    (move cl amount)
-    (move r x)
-    (inst shrd r shift-in :cl)))
-
-(define-vop (bignum-shrd-c bignum-shld-c)
-  (:translate bignum::%shrd)
-  (:generator 2
-    (move r x)
-    (inst shrd r shift-in shift)))
-
-
 

 ;;; Modular arithmetic
 ;;; logical operations


=====================================
src/general-info/release-21b.txt
=====================================
--- a/src/general-info/release-21b.txt
+++ b/src/general-info/release-21b.txt
@@ -53,6 +53,8 @@ New in this release:
     * More descriptive docstring for
       * *environment-list*
       * :env option for run-program
+    * Maximum dynamic-space-size on Linux reduced to 1530 MB because
+      that's the largest available space on 32-bit Ubuntu 11.10.
 
   * ANSI compliance fixes:
     * PATHNAME-MATCH-P did not accept search-lists.



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/9e4c9d0a4cd95d10dfded5458694ecbe1125dc97...ee6b86bf3f20ecdc8a04c99593f70885eabd97dd
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20160312/aaa9028a/attachment.html>