Changeset 13759

Timestamp:

Jun 1, 2010, 4:18:26 AM (14 years ago)

Author:

Gary Byers

Message:

Don't treat (some) local-labels as local names during definition;
we won't do that during expansion.
Handle pseudo-ops during vinsn definition.

File:

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

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

@@ -67 +67 @@
       (dolist (n (append args temps))
         (add-spec-name (valid-spec-name n)))
+      #+no
       (dolist (form body)
         (if (atom form)
@@ -162 +163 @@
                                      (mapcar #'simplify-form opvals))
                                (if (keywordp opname)
-                                 form
+                                 (ecase opname
+                                   ((:code :data)  form)
+                                   (:word (destructuring-bind (val) opvals
+                                            (list opname
+                                                  (let* ((p (position val name-list)))
+                                                    (if p (list p) (eval val)))))))
                                  (arm::vinsn-simplify-instruction form name-list)))))))
                 (let* ((template (make-vinsn-template