Raymond Toy pushed to branch issue-356-x87-status-word-in-low-part at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/compiler/x86/float-sse2.lisp
    ... ... @@ -1380,7 +1380,7 @@
    1380 1380
       float-modes)
    
    1381 1381
     
    
    1382 1382
     ;; Extract the control and status words from the FPU.  The low 16 bits
    
    1383
    -;; contain the control word, and the high 16 bits contain the status.
    
    1383
    +;; contain the status word, and the high 16 bits contain the control.
    
    1384 1384
     (define-vop (x87-floating-point-modes)
    
    1385 1385
       (:results (res :scs (unsigned-reg)))
    
    1386 1386
       (:result-types unsigned-num)
    
    ... ... @@ -1402,7 +1402,7 @@
    1402 1402
        (inst rol res 16)))
    
    1403 1403
     
    
    1404 1404
     ;; Set the control and status words from the FPU.  The low 16 bits
    
    1405
    -;; contain the control word, and the high 16 bits contain the status.
    
    1405
    +;; contain the status word, and the high 16 bits contain the control.
    
    1406 1406
     (define-vop (x87-set-floating-point-modes)
    
    1407 1407
       (:args (new-modes :scs (unsigned-reg) :to :result :target res))
    
    1408 1408
       (:results (res :scs (unsigned-reg)))