Changeset 7896

Timestamp:

Dec 12, 2007, 2:28:01 AM (17 years ago)

Author:

Gary Byers

Message:

Revert eep.adress to old (anchored UUO out-of-line) behavior, since
the bug in the kernel's ability to resart anchored UUOs should be
fixed now.

File:

• branches/working-0711/ccl/compiler/X86/X8664/x8664-vinsns.lisp (modified) (2 diffs)

branches/working-0711/ccl/compiler/X86/X8664/x8664-vinsns.lisp

@@ -3672 +3672 @@
   (:anchored-uuo (uuo-error-slot-unbound (:%q dest) (:%q instance) (:%q index))))
 
-#||
 (define-x8664-vinsn eep.address (((dest t))
                                  ((src (:lisp (:ne dest )))))
@@ -3683 +3682 @@
   :bad
   (:anchored-uuo (uuo-error-eep-unresolved (:%q src) (:%q dest))))
-||#
-
-(define-x8664-vinsn eep.address (((dest t))
-                                 ((src (:lisp (:ne dest )))))
-  (movq (:@ (+ (ash 1 x8664::word-shift) x8664::misc-data-offset) (:%q src))
-        (:%q dest))
-  (cmpb (:$b x8664::fulltag-nil) (:%b dest))
-  (jne :ok)
-  (uuo-error-eep-unresolved (:%q src) (:%q dest))
-  :ok)
+
 
 (define-x8664-subprim-lea-jmp-vinsn (heap-cons-rest-arg) .SPheap-cons-rest-arg)