Changeset 7867


Ignore:
Timestamp:
Dec 10, 2007, 3:59:10 PM (13 years ago)
Author:
gb
Message:

Control transfer after anchored UUO not working right; revert eep.address
(which depends on it working right ...) back to old version for now.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/X86/X8664/x8664-vinsns.lisp

    r7860 r7867  
    36723672  (:anchored-uuo (uuo-error-slot-unbound (:%q dest) (:%q instance) (:%q index))))
    36733673
     3674#||
    36743675(define-x8664-vinsn eep.address (((dest t))
    36753676                                 ((src (:lisp (:ne dest )))))
     
    36823683  :bad
    36833684  (:anchored-uuo (uuo-error-eep-unresolved (:%q src) (:%q dest))))
     3685||#
     3686
     3687(define-x8664-vinsn eep.address (((dest t))
     3688                                 ((src (:lisp (:ne dest )))))
     3689  (movq (:@ (+ (ash 1 x8664::word-shift) x8664::misc-data-offset) (:%q src))
     3690        (:%q dest))
     3691  (cmpb (:$b x8664::fulltag-nil) (:%b dest))
     3692  (jne :ok)
     3693  (uuo-error-eep-unresolved (:%q src) (:%q dest))
     3694  :ok)
    36843695
    36853696(define-x8664-subprim-lea-jmp-vinsn (heap-cons-rest-arg) .SPheap-cons-rest-arg)
Note: See TracChangeset for help on using the changeset viewer.