Changeset 892

Timestamp:

Oct 26, 2004, 9:51:22 PM (20 years ago)

Author:

Gary Byers

Message:

play around with r2 when zeroing FPSCR

Location:

trunk/ccl/lisp-kernel

Files:

• asmutils.s (modified) (1 diff)
• lisp-exceptions.c (modified) (1 diff)

trunk/ccl/lisp-kernel/asmutils.s

@@ -93 +93 @@
 */
 _exportfn(C(zero_fpscr))
+        __(mr r4,r2)
+        __(mr r2,r3)
         __(uuo_zero_fpscr())
+        __(mr r2,r4)
         __(blr)
 _endfn

trunk/ccl/lisp-kernel/lisp-exceptions.c

@@ -1305 +1305 @@
 handle_sigfpe(ExceptionInformation *xp, TCR *tcr)
 {
-  (void) zero_fpscr();
+  (void) zero_fpscr(tcr);
   enable_fp_exceptions();