/[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.8.1 by rtoy, Sat Sep 27 05:07:49 2008 UTC revision 1.29.8.2 by rtoy, Tue Sep 30 14:40:08 2008 UTC
# Line 276  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.8.1  
changed lines
  Added in v.1.29.8.2

  ViewVC Help
Powered by ViewVC 1.1.5