<html lang='en'>
<head>
<meta content='text/html; charset=utf-8' http-equiv='Content-Type'>
<title>
GitLab
</title>
</meta>
</head>
<style>
  img {
    max-width: 100%;
    height: auto;
  }
  p.details {
    font-style:italic;
    color:#777
  }
  .footer p {
    font-size:small;
    color:#777
  }
  pre.commit-message {
    white-space: pre-wrap;
  }
  .file-stats a {
    text-decoration: none;
  }
  .file-stats .new-file {
    color: #090;
  }
  .file-stats .deleted-file {
    color: #B00;
  }
</style>
<body>
<div class='content'>
<h3>
Raymond Toy pushed to branch rtoy-15-handle-fpu-exceptions
at <a href="https://gitlab.common-lisp.net/cmucl/cmucl">cmucl / cmucl</a>
</h3>
<h4>
Commits:
</h4>
<ul>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/d9763e9075310cfbbae3f43f0cc7d638a95872ae">d9763e90</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2016-01-10T15:42:41Z</i>
</div>
<pre class='commit-message'>In WITH-FLOAT-TRAPS-*, remove the unused junk modifying the state.

We just want to return the original modes, so remove all the old
commented out stuff that was modifying the original modes to some
strange state.  This makes a lot more sense to me if
WITH-FLOAT-TRAPS-* actually restored the modes exactly as they were
before running the body.</pre>
</li>
</ul>
<h4>1 changed file:</h4>
<ul>
<li class='file-stats'>
<a href='#diff-0'>
src/code/float-trap.lisp
</a>
</li>
</ul>
<h4>Changes:</h4>
<li id='diff-0'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/commit/d9763e9075310cfbbae3f43f0cc7d638a95872ae#diff-0'>
<strong>
src/code/float-trap.lisp
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/code/float-trap.lisp
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/code/float-trap.lisp
</span><span style="color: #aaaaaa">@@ -451,6 +451,10 @@
</span>               ;; representing the invalid operation.  Otherwise, if we
                    ;; enable the invalid trap later, these sticky bits will cause
                    ;; an exception.
<span style="color: #000000;background-color: #ddffdd">+                    ;;
+                   ;; FIXME: Consider removing these for ppc.  Since
+                   ;; we now restore the original modes exactly, I
+                   ;; don't think these are needed anymore.
</span>               #+ppc
                    (invalid-mask (if (member :invalid traps)
                                      (dpb 0
<span style="color: #aaaaaa">@@ -467,21 +471,8 @@
</span>                                (logand (,',merge-traps ,orig-modes ,trap-mask)
                                             ,exception-mask)))
                          ,@body)
<span style="color: #000000;background-color: #ffdddd">-                     ;; Restore the original traps and exceptions.
-                    (format *debug-io* "Saved fpu mode:   #x~4,'0x: ~S~%"
-                            ,orig-modes (decode-floating-point-modes ,orig-modes))
-                    (format *debug-io* "Current fpu mode: #x~4,'0x: ~S~%"
-                            (floating-point-modes) (get-floating-point-modes))
-                    #+nil
-                    (setf (floating-point-modes)
-                          (logior (logand ,orig-modes ,(logior traps exceptions))
-                                  (logand ,orig-modes
-                                          ,(logand trap-mask exception-mask)
-                                          #+ppc
-                                          ,invalid-mask
-                                          #+mips ,(dpb 0 float-exceptions-byte #xffffffff))))
-                    (setf (floating-point-modes) ,orig-modes)
-                    ))))))))
</span><span style="color: #000000;background-color: #ddffdd">+                ;; Restore the modes exactly as they were.
+                    (setf (floating-point-modes) ,orig-modes)))))))))
</span> 
   ;; WITH-FLOAT-TRAPS-MASKED  --  Public
   (with-float-traps masked logand
</code></pre>

<br>
</li>

</div>
<div class='footer' style='margin-top: 10px;'>
<p>

<br>
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/d9763e9075310cfbbae3f43f0cc7d638a95872ae">View it on GitLab</a>.
<br>
You're receiving this email because of your account on gitlab.common-lisp.net.
If you'd like to receive fewer emails, you can adjust your notification settings.
<script type="application/ld+json">{"@context":"http://schema.org","@type":"EmailMessage","action":{"@type":"ViewAction","name":"View Commit","url":"https://gitlab.common-lisp.net/cmucl/cmucl/commit/d9763e9075310cfbbae3f43f0cc7d638a95872ae"}}</script>
</p>
</div>
</body>
</html>