Ignore:
Timestamp:
Jun 1, 2010, 11:18:26 AM (9 years ago)
Author:
gb
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/compiler/ARM/arm-backend.lisp

    r13741 r13759  
    6767      (dolist (n (append args temps))
    6868        (add-spec-name (valid-spec-name n)))
     69      #+no
    6970      (dolist (form body)
    7071        (if (atom form)
     
    162163                                     (mapcar #'simplify-form opvals))
    163164                               (if (keywordp opname)
    164                                  form
     165                                 (ecase opname
     166                                   ((:code :data)  form)
     167                                   (:word (destructuring-bind (val) opvals
     168                                            (list opname
     169                                                  (let* ((p (position val name-list)))
     170                                                    (if p (list p) (eval val)))))))
    165171                                 (arm::vinsn-simplify-instruction form name-list)))))))
    166172                (let* ((template (make-vinsn-template
Note: See TracChangeset for help on using the changeset viewer.