Changeset 13807

Timestamp:

Jun 11, 2010, 12:04:10 AM (14 years ago)

Author:

Gary Byers

Message:

Define some more FP instructions, fix some typos.

File:

• branches/arm/compiler/ARM/arm-asm.lisp (modified) (7 diffs)

branches/arm/compiler/ARM/arm-asm.lisp

@@ -586 +586 @@
      #x0fb00fb0
      ())
+   (define-arm-instruction fnegd (:dd :dm)
+     #x0ed10b40
+     #x0fff0ff0
+     ())
+   (define-arm-instruction fnegs (:sd :sm)
+     #x0ed10a40
+     #x0bff0fb0
+     ())
+   (define-arm-instruction fsqrtd (:dd :dm)
+     #x0eb10bc0
+     #x0fff0ff0
+     ())
+   (define-arm-instruction fsqrts (:sd :sm)
+     #x0eb10ac0
+     #x0bff0fb0
+     ())   
    (define-arm-instruction faddd (:dd :dn :dm)
      #x0e300b00
@@ -664 +680 @@
    (define-arm-instruction fcvtsd (:sd :dm)
      #x0eb70bc0
-     #x0fbf0fc0
+     #x0fbf0ff0
+     ())
+   (define-arm-instruction fcvtds (:dd :sm)
+     #x0eb70ac0
+     #x0ff70ac0
      ())
    (define-arm-instruction smull (:rd :rn :rm :rn)
@@ -675 +695 @@
      ())
 
-   (define-arm-instruction fstd (:sd :fpaddr)
+   (define-arm-instruction fstd (:dd :fpaddr)
      #x0d000b00
      #x0f700f00
@@ -683 +703 @@
      #x0f300f00
      ())
-   (define-arm-instruction fldd (:sd :fpaddr)
+   (define-arm-instruction fldd (:dd :fpaddr)
      #x0d100b00
      #x0f700f00
@@ -691 +711 @@
      #x0f300f00
      ())
+   (define-arm-instruction ftosid (:sd :dm)
+     #x0ebd0b40
+     #x0fbf0fc0
+     ())
+   (define-arm-instruction ftosizd (:sd :dm)
+     #x0ebd0bc0
+     #x0fbf0fc0
+     ())
+   (define-arm-instruction ftosis (:sd :sm)
+     #x0ebd0a40
+     #x0fbf0fc0
+     ())
+   (define-arm-instruction ftosizs (:sd :sm)
+     #x0ebd0ac0
+     #x0fbf0fc0
+     ())   
    (define-arm-instruction ldrex (:rd :@rn)
      #x01900f9f
@@ -834 +870 @@
 
 (defun need-arm-dfpr (form)
-  (or (get-arm-sfpr form)
+  (or (get-arm-dfpr form)
       (error "Expected an ARM double FP register, got ~s" form)))
 
@@ -1158 +1194 @@
       (unless (and (consp offset) (eq (keywordize (car offset)) :$))
         (error "Invalid FP address offset ~s in ~s." offset form))
-      (destructuring-bind (offset-form) (cadr offset)
+      (destructuring-bind (offset-form) (cdr offset)
         (let* ((offset-val (eval offset-form)))
           (when (logtest offset-val 3)