/[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.29 by cshapiro, Thu Jan 3 11:41:52 2008 UTC revision 1.29.6.1 by rtoy, Fri Dec 19 01:31:32 2008 UTC
# Line 29  Line 29 
29            sigcontext-float-register sigcontext-floating-point-modes            sigcontext-float-register sigcontext-floating-point-modes
30            extern-alien-name sanctify-for-execution))            extern-alien-name sanctify-for-execution))
31    
32    #+complex-fp-vops
33    (sys:register-lisp-feature :complex-fp-vops)
34    
35    #+(or x87 (not :sse2))
36    (sys:register-lisp-feature :x87)
37    #+sse2
38    (progn
39      (setf *features* (delete :x87 *features*))
40      (sys:register-lisp-runtime-feature :sse2))
41    
42    
43  ;;;; The sigcontext structure.  ;;;; The sigcontext structure.
44    
# Line 270  Line 280 
280                                      (* sigcontext)))))                                      (* sigcontext)))))
281      (alien-funcall fn scp)))      (alien-funcall fn scp)))
282    
283    (defun %set-sigcontext-floating-point-modes (scp new-mode)
284      (declare (type (alien (* sigcontext)) scp))
285      (let ((fn (extern-alien "os_set_sigcontext_fpu_modes"
286                              (function (integer 32)
287                                        (* sigcontext)
288                                        c-call:unsigned-int))))
289        (alien-funcall fn scp new-mode)
290        new-mode))
291    
292    (defsetf sigcontext-floating-point-modes %set-sigcontext-floating-point-modes)
293    
294    
295  ;;; EXTERN-ALIEN-NAME -- interface.  ;;; EXTERN-ALIEN-NAME -- interface.
296  ;;;  ;;;

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.29.6.1

  ViewVC Help
Powered by ViewVC 1.1.5