[Sbcl-commits] master: compiler/arm/macros: LOADW and STOREW.

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

The branch "master" has been updated in SBCL:
       via  8968c2e6b5423a08e50d679d234c6f00897925e7 (commit)
      from  78a72dc39c532d29415873582c02338ba3d9d681 (commit)

- Log -----------------------------------------------------------------
commit 8968c2e6b5423a08e50d679d234c6f00897925e7
Author: Alastair Bridgewater <ny...@ka...>
Date:   Wed Oct 3 11:24:32 2012 -0400

    compiler/arm/macros: LOADW and STOREW.
    
      * Cribbed from the PPC definition, updated to use ARM
    instructions (hopefully correct).
---
 src/compiler/arm/macros.lisp |    9 ++++++++-
 1 files changed, 8 insertions(+), 1 deletions(-)

diff --git a/src/compiler/arm/macros.lisp b/src/compiler/arm/macros.lisp
index b0fd62d..9ae71d7 100644
--- a/src/compiler/arm/macros.lisp
+++ b/src/compiler/arm/macros.lisp
@@ -11,4 +11,11 @@
 
 (in-package "SB!VM")
 
-;;; Dummy placeholder file.
+;;; Instruction-like macros.
+
+(macrolet
+    ((def (op inst shift)
+       `(defmacro ,op (object base &optional (offset 0) (lowtag 0))
+          `(inst ,',inst ,object (@ ,base (- (ash ,offset ,,shift) ,lowtag))))))
+  (def loadw ldr word-shift)
+  (def storew str word-shift))

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


hooks/post-receive
-- 
SBCL