Changeset 10508


Ignore:
Timestamp:
Aug 21, 2008, 9:20:42 AM (11 years ago)
Author:
gb
Message:

use target-arch-case to find appropriate segment-register offset
in last change, again.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x862.lisp

    r10507 r10508  
    57835783                     ((eq (car valform) :rcontext)
    57845784                      (if (>= (backend-lisp-context-register *target-backend*)
    5785                               x86::+x86-segment-register-offset+)
     5785                              (target-arch-case
     5786                               (:x8632 x86::+x8632-segment-register-offset+)
     5787                               (:x8664 x86::+x8664-segment-register-offset+)))
    57865788                        (mapcar #'parse-operand-form `(:rcontext ,(cadr valform) nil nil nil))
    57875789                        (mapcar #'parse-operand-form `(nil ,(cadr valform) :rcontext nil nil))))
Note: See TracChangeset for help on using the changeset viewer.