Changeset 14034

Timestamp:

Jul 24, 2010, 11:32:28 PM (11 years ago)

Author:

gb

Message:

movw, movt, & support for them.

File:

• branches/arm/compiler/ARM/arm-disassemble.lisp (modified) (2 diffs)

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

@@ -195 +195 @@
       (t (list :fpu (ldb (byte 4 16) opcode))))))
 
+(defun extract-arm-imm16-operand (opcodes i)
+  (let* ((opcode (adi-opcode (svref opcodes i))))
+    `(:$
+      ,(dpb (ldb (byte 4 16) opcode)
+         (byte 4 12)
+         (ldb (byte 12 0) opcode)))))
+
 (defun extract-arm-rm-operand (opcodes i)
   (let* ((opcode (adi-opcode (svref opcodes i))))
@@ -299 +306 @@
     extract-arm-uuoc-operand
     extract-arm-fpux-operand
+    extract-arm-imm16-operand
     ))