/[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.8.2 by rtoy, Tue Sep 30 14:40:08 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    #+sse2
33    (sys:register-lisp-runtime-feature :sse2)
34    
35    #+(or x87 (not :sse2))
36    (sys:register-lisp-feature :x87)
37    
38    
39  ;;;; The sigcontext structure.  ;;;; The sigcontext structure.
40    
# Line 270  Line 276 
276                                      (* sigcontext)))))                                      (* sigcontext)))))
277      (alien-funcall fn scp)))      (alien-funcall fn scp)))
278    
279    (defun %set-sigcontext-floating-point-modes (scp new-mode)
280      (declare (type (alien (* sigcontext)) scp))
281      (let ((fn (extern-alien "os_set_sigcontext_fpu_modes"
282                              (function (integer 32)
283                                        (* sigcontext)
284                                        c-call:unsigned-int))))
285        (alien-funcall fn scp new-mode)
286        new-mode))
287    
288    (defsetf sigcontext-floating-point-modes %set-sigcontext-floating-point-modes)
289    
290    
291  ;;; EXTERN-ALIEN-NAME -- interface.  ;;; EXTERN-ALIEN-NAME -- interface.
292  ;;;  ;;;

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

  ViewVC Help
Powered by ViewVC 1.1.5