Changeset 4958

Timestamp:

Aug 18, 2006, 8:43:44 AM (18 years ago)

Author:

Gary Byers

Message:

Recognize :rcontext as a reference to the backend's LISP-CONTEXT-REGISTER slot.

Location:

trunk/ccl/compiler/X86

Files:

• x86-backend.lisp (modified) (1 diff)
• x86-lap.lisp (modified) (1 diff)

trunk/ccl/compiler/X86/x86-backend.lisp

@@ -197 +197 @@
                          (if (typep op 'fixnum)
                            op
-                           (if (constantp op)
-                             (progn
-                               (if (keywordp op)
-                                 (pushnew op referenced-labels))
-                               (eval op))
-                             (find-name op)))
+                           (if (eq op :rcontext)
+                             (backend-lisp-context-register *target-backend*)
+                             (if (constantp op)
+                               (progn
+                                 (if (keywordp op)
+                                   (pushnew op referenced-labels))
+                                 (eval op))
+                               (find-name op))))
                          (if (eq (car op) :^)
                            (list :^ (simplify-simple-operand (cadr op)))

trunk/ccl/compiler/X86/x86-lap.lisp

@@ -350 +350 @@
   (let* ((r (typecase regname
               (symbol (or (gethash (string regname) x86::*x86-registers*)
+                          (if (eq regname :rcontext)
+                            (svref x86::*x8664-register-entries*
+                                   (ccl::backend-lisp-context-register *target-backend*)))
                           (and (boundp regname)
                                (let* ((val (symbol-value regname)))