Changeset 6466


Ignore:
Timestamp:
May 9, 2007, 7:33:20 AM (15 years ago)
Author:
gb
Message:

Allow label-valued temporaries, support :talign directive in vinsn templates.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/X86/x86-backend.lisp

    r5148 r6466  
    138138                          (assoc (cadr x) *spec-class-storage-class-alist* :test #'eq)
    139139                          (eq (cadr x) :label)
     140                          (and (consp (cadr x)) (eq (caadr x) :label) (consp (cdadr x)) (null (cddadr x)))
    140141                          (and (consp (cadr x))
    141142                               (or
     
    210211                             `(,(cadr op) ,@(mapcar #'simplify-operand (cddr op)))
    211212                             (if (member (car op)
    212                                          '(:tra :align :byte :word :long :quad))
     213                                         '(:tra :align :byte :word :long :quad :talign))
    213214                               `(,(car op) ,(simplify-operand (cadr op)))
    214215                               (simplify-operand (eval op))))))) ; Handler-case this?
Note: See TracChangeset for help on using the changeset viewer.