Ignore:
Timestamp:
Apr 12, 2011, 11:30:25 AM (10 years ago)
Author:
gb
Message:

%IVECTOR-FROM-MACPTR for X86{32,64}

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/X8632/x8632-misc.lisp

    r14619 r14710  
    666666  (single-value-return))
    667667
     668(defx8632lapfunction %ivector-from-macptr ((ptr arg_z))
     669  (macptr-ptr ptr imm0)
     670  (mark-as-imm temp0)
     671  (let ((imm1 temp0))
     672    (movl (% imm0) (% imm1))
     673    (andl ($ target::node-size) (% imm1))
     674    (xorl ($ target::node-size) (% imm1))
     675    (addl ($ (- target::fulltag-misc target::node-size)) (% imm0))
     676    (subl (% imm1) (% imm0))
     677    (mark-as-node imm1))
     678  (movl (% imm0) (% arg_z))
     679  (single-value-return))
     680
    668681;;; Sadly, we have no NVRs on x8632.
    669682(defun get-saved-register-values ()
Note: See TracChangeset for help on using the changeset viewer.