Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

• d2c96f1b
  by Raymond Toy at 2025-08-14T07:45:18-07:00

  Fix #426:  Define float-modes type correctly
  

• 2db294b1
  by Raymond Toy at 2025-08-14T07:45:18-07:00

  Merge branch 'issue-426-fix-float-modes-type-def' into 'master'
  
  Fix #426:  Define float-modes type correctly
  
  Closes #426
  
  See merge request cmucl/cmucl!313

2 changed files:

• src/compiler/x86/float-sse2.lisp
• tests/float.lisp

Changes:

 ;;;; Float mode hackery:

-(deftype float-modes () '(unsigned-byte 24))

+(deftype float-modes () '(unsigned-byte 30))

 ;; For the record, here is the format of the MXCSR register.

 ;;

                                        (declare (ignore c))

                                        (values (invoke-restart 'lisp::largest-float)))))

                       (read-from-string string))))))

+

+#+x86

+(define-test x87-set-floating-point-modes

+    (:tag :issues)

+  (let ((new-mode (setf (x86::x87-floating-point-modes)

+			(dpb 2 (byte 2 24)

+			     (x86::x87-floating-point-modes)))))

+    (assert-true (typep new-mode 'x86::float-modes))

+    (assert-equal new-mode (setf (x86::x87-floating-point-modes) new-mode))))

+