Changeset 6297


Ignore:
Timestamp:
Apr 18, 2007, 11:24:09 AM (15 years ago)
Author:
gb
Message:

Accept (name (:label n)) as a vinsn temporary.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/compiler/X86/x86-backend.lisp

    r5148 r6297  
    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
Note: See TracChangeset for help on using the changeset viewer.