Changeset 4960

Timestamp:

Aug 18, 2006, 8:47:19 AM (18 years ago)

Author:

Gary Byers

Message:

Dress up the Darwin x86-64 backend a little.

Explicily define lisp-context-register slot in each backend (%gs for
those imolementations that follow the standard ABI, %fs for Darwin.)

File:

• trunk/ccl/compiler/X86/X8664/x8664-backend.lisp (modified) (4 diffs)

trunk/ccl/compiler/X86/X8664/x8664-backend.lisp

@@ -165 +165 @@
                 :define-callback 'define-x8664-callback
                 :defcallback-body 'defcallback-body-x8664
+                :lisp-context-register x8664::gs
                 ))
 
@@ -180 +181 @@
                 :target-specific-features
                 '(:x8664 :x86-target :darwin-target :darwinx86-target :x8664-target
+                  :darwinx8664-target
                   :little-endian-target
                   :64-bit-target)
@@ -193 +195 @@
                 :define-callback 'define-x8664-callback
                 :defcallback-body 'defcallback-body-x8664
+                :lisp-context-register x8664::fs
                 ))
 
@@ -221 +224 @@
                 :define-callback 'define-x8664-callback
                 :defcallback-body 'defcallback-body-x8664
-                :platform-syscall-mask (logior platform-os-freebsd platform-cpu-x86 platform-word-size-64)                
+                :platform-syscall-mask (logior platform-os-freebsd platform-cpu-x86 platform-word-size-64)
+                :lisp-context-register x8664::gs
                 ))