Changeset 15075

Timestamp:

Nov 19, 2011, 2:09:19 PM (13 years ago)

Author:

Gary Byers

Message:

Make 'vpush1' and 'vpop1' instructions, don't define them as lap
macros (mostly so the disassembler will recognize them.)

Add fldmia[s|d] and fstmia[s|d]. Note that for some variants
of load/store multiple, the writeback bit is mandatory; we should
but don't distinguish between optional and mandatory writeback.

Location:

trunk/source/compiler/ARM

Files:

• arm-asm.lisp (modified) (5 diffs)
• arm-lapmacros.lisp (modified) (2 diffs)

trunk/source/compiler/ARM/arm-asm.lisp

@@ -1 @@
-;;;-*- Mode: Lisp; Package: (ARM :use CL) -*-
+;;-*- Mode: Lisp; Package: (ARM :use CL) -*-
 ;;;
 ;;;   Copyright (C) 2005-2009 Clozure Associates and contributors.
@@ -526 +526 @@
       (#x01f00010 . #x0ff00090))
      ())
-
+   (define-arm-instruction vpop1 (:rd)
+     #x049a0004
+     #x0fff0fff
+     ())
    (define-arm-instruction ldr (:rd :mem12)
      #x04100000
@@ -534 +537 @@
      #x04500000
      #x0c500000
+     ())
+   (define-arm-instruction vpush1 (:rd)
+     #x052a0004
+     #x0fff0fff
      ())
    (define-arm-instruction str (:rd :mem12)
@@ -814 +821 @@
      #x0fb00f00
      ())
+   (define-arm-instruction fstmias (:sd :rnw :srcount)
+     #x0c800a00
+     #x0fd00f00
+     ())
    (define-arm-instruction fstmdbd (:dd :rnw :drcount)
      #x0d200b00
-     #x0fb00f00
+     #x0ff00f00
+     ())
+   (define-arm-instruction fstmiad (:sd :rnw :srcount)
+     #x0c800b00
+     #x0fd00f00
      ())
    (define-arm-instruction fldd (:dd :fpaddr)
@@ -1020 +1035 @@
                         (byte low-width pos)
                         low)))))))
+
 
 (defun set-field-value (instruction bytespec value)

trunk/source/compiler/ARM/arm-lapmacros.lisp

@@ -88 +88 @@
   `(str ,src (:+@! ,stack (:$ (- arm::node-size)))))
 
-(defarmlapmacro vpush1 (src)
-  `(push1 ,src vsp))
+
 
 
@@ -95 +94 @@
   `(ldr ,dest (:@+ ,stack (:$ arm::node-size))))
 
-(defarmlapmacro vpop1 (dest)
-  `(pop1 ,dest vsp))
+
 
 (defarmlapmacro %cdr (dest node)