Changeset 10506


Ignore:
Timestamp:
Aug 21, 2008, 8:47:01 AM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x86-lap.lisp

    r10505 r10506  
    727727              ((eq head :rcontext)
    728728               (if (>= (backend-lisp-context-register *target-backend*)
    729                        x86::+x86-segment-register-offset+)
     729                       (target-arch-case
     730                        (:x8632 x86::+x8632-segment-register-offset+)
     731                        (:x8664 x86::+x8664-segment-register-offset+)))
    730732                 (parse-x86-memory-operand `((% :rcontext) ,(cadr form)))
    731733                 (parse-x86-memory-operand `(,(cadr form) (% :rcontext)))))
Note: See TracChangeset for help on using the changeset viewer.