Changeset 7212


Ignore:
Timestamp:
Sep 14, 2007, 2:17:17 AM (12 years ago)
Author:
rme
Message:

Don't worry about signaling an error here after all.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/x86-asm.lisp

    r7103 r7212  
    45664566  (ccl::target-arch-case
    45674567   (:x8632
    4568     ;; Only the first four registers can be accessed as bytes.
    4569     (if (or (<= (reg-entry-reg-num r) x8632::ebx)
    4570             (member (reg-entry-reg-name r) '("ah" "ch" "dh" "bh") :test #'string=))
    4571       (svref *x8632-register-entries* (dpb (gpr-ordinal r)
    4572                                            (byte 3 0)
    4573                                            +x8632-8-bit-register+))
    4574       (error "Can't use ~a as a byte register" (reg-entry-reg-name r))))
     4568    (svref *x8632-register-entries* (dpb (gpr-ordinal r)
     4569                                         (byte 3 0)
     4570                                         +x8632-8-bit-register+)))
    45754571   (:x8664
    45764572    (svref *x8664-register-entries* (dpb (gpr-ordinal r)
Note: See TracChangeset for help on using the changeset viewer.