/[cmucl]/src/code/x86-vm.lisp
ViewVC logotype

Diff of /src/code/x86-vm.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36 by rtoy, Tue Jun 22 03:24:49 2010 UTC revision 1.37 by rtoy, Tue Jun 22 15:35:23 2010 UTC
# Line 250  Line 250 
250  ;;; Like SIGCONTEXT-REGISTER, but returns the value of a float register.  ;;; Like SIGCONTEXT-REGISTER, but returns the value of a float register.
251  ;;; Format is the type of float to return.  ;;; Format is the type of float to return.
252  ;;;  ;;;
 #-(and sse2 (or darwin))  
253  (defun sigcontext-float-register (scp index format)  (defun sigcontext-float-register (scp index format)
254    (declare (type (alien (* sigcontext)) scp))    (declare (type (alien (* sigcontext)) scp))
255    (let ((fn (extern-alien "os_sigcontext_fpu_reg"    (let ((fn (extern-alien "os_sigcontext_fpu_reg"
# Line 259  Line 258 
258                                      (integer 32)))))                                      (integer 32)))))
259      (coerce (sap-ref-long (alien-funcall fn scp index) 0) format)))      (coerce (sap-ref-long (alien-funcall fn scp index) 0) format)))
260    
 #+(and sse2 (or darwin))  
 (defun sigcontext-float-register (scp index format)  
   (declare (type (alien (* sigcontext)) scp))  
   (let ((fn (extern-alien "os_sigcontext_fpu_reg_sse2"  
                           (function system-area-pointer  
                                     (* sigcontext)  
                                     (integer 32)))))  
     (if (eq format 'double-float)  
         (coerce (sap-ref-double (alien-funcall fn scp index) 0) format)  
         (coerce (sap-ref-single (alien-funcall fn scp index) 0) format))))  
261  ;;;  ;;;
262  (defun %set-sigcontext-float-register (scp index format new)  (defun %set-sigcontext-float-register (scp index format new)
263    (declare (type (alien (* sigcontext)) scp))    (declare (type (alien (* sigcontext)) scp))

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

  ViewVC Help
Powered by ViewVC 1.1.5