[Sbcl-commits] master: Remove unnecessary package prefixes.

[stassats <sta...@us...>]

The branch "master" has been updated in SBCL:
       via  a8882a7e1ae91d17b4bffccf9c560ce448a64917 (commit)
      from  994dd26b9c12f26cd252f76976deeb63694f7a00 (commit)

- Log -----------------------------------------------------------------
commit a8882a7e1ae91d17b4bffccf9c560ce448a64917
Author: Stas Boukarev <sta...@gm...>
Date:   Mon Feb 8 19:08:25 2016 +0300

    Remove unnecessary package prefixes.
---
 src/compiler/arm/arith.lisp   |   12 ++++++------
 src/compiler/arm64/arith.lisp |   10 +++++-----
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/src/compiler/arm/arith.lisp b/src/compiler/arm/arith.lisp
index 38a2f42..8b7e3b4 100644
--- a/src/compiler/arm/arith.lisp
+++ b/src/compiler/arm/arith.lisp
@@ -342,15 +342,15 @@
     (inst cmp temp 0)
     (inst b :ge LEFT)
     (inst rsb temp temp 0) ;; negate
-    (inst cmp temp sb!vm:n-word-bits)
-    (inst mov :gt temp sb!vm:n-word-bits)
+    (inst cmp temp n-word-bits)
+    (inst mov :gt temp n-word-bits)
     (inst mov result (ecase variant
                        (:signed (asr number temp))
                        (:unsigned (lsr number temp))))
     (inst b END)
     LEFT
-    (inst cmp temp sb!vm:n-word-bits)
-    (inst mov :gt temp sb!vm:n-word-bits)
+    (inst cmp temp n-word-bits)
+    (inst mov :gt temp n-word-bits)
     (inst mov result (lsl number temp))
     END))
 
@@ -386,8 +386,8 @@
                 (:policy :fast-safe)
                 (:generator ,cost
                   (move temp amount)
-                  (inst cmp temp sb!vm:n-word-bits)
-                  (inst mov :gt temp sb!vm:n-word-bits)
+                  (inst cmp temp n-word-bits)
+                  (inst mov :gt temp n-word-bits)
                   (inst mov result (lsl number temp))))))
   ;; FIXME: There's the opportunity for a sneaky optimization here, I
   ;; think: a FAST-ASH-LEFT-C/FIXNUM=>SIGNED vop.  -- CSR, 2003-09-03
diff --git a/src/compiler/arm64/arith.lisp b/src/compiler/arm64/arith.lisp
index e430583..15443d4 100644
--- a/src/compiler/arm64/arith.lisp
+++ b/src/compiler/arm64/arith.lisp
@@ -390,18 +390,18 @@
     (inst cmp temp 0)
     (inst b :ge LEFT)
     (inst neg temp temp)
-    (inst cmp temp sb!vm:n-word-bits)
+    (inst cmp temp n-word-bits)
     (inst b :lt DO)
-    (inst mov temp (1- sb!vm:n-word-bits))
+    (inst mov temp (1- n-word-bits))
     DO
     (ecase variant
       (:signed (inst asr result number temp))
       (:unsigned (inst lsr result number temp)))
     (inst b END)
     LEFT
-    (inst cmp temp sb!vm:n-word-bits)
+    (inst cmp temp n-word-bits)
     (inst b :lt DO2)
-    (inst mov temp (1- sb!vm:n-word-bits))
+    (inst mov temp (1- n-word-bits))
     DO2
     (inst lsl result number temp)
     END))
@@ -438,7 +438,7 @@
                 (:policy :fast-safe)
                 (:generator ,cost
                   (let ((amount (cond (cut
-                                       (inst cmp amount sb!vm:n-word-bits)
+                                       (inst cmp amount n-word-bits)
                                        ;; Only the first 6 bits count for shifts.
                                        ;; This sets all bits to 1 if AMOUNT is larger than 63,
                                        ;; cutting the amount to 63.

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL