Changeset 10506

Show
Ignore:
Timestamp:
08/21/08 04:47:01 (3 months ago)
Author:
gb
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • 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)))))