ppc32 and logtest repairs (#1045)

Author: mflatt

release_notes/release_notes.stex

@@ -2993,6 +2993,17 @@ in fasl files does not generally make sense.
 %-----------------------------------------------------------------------------
 \section{Bug Fixes}\label{section:bugfixes}
 
+\subsection{Repair allocation in \scheme{logtest} (10.4.1)}
+
+In Version 10.4.0, the \scheme{logtest} procedure could allocate incorrectly when given a
+mixture of fixnum and bignum arguments. The problem has been fixed by adding a missing
+\scheme{__alloc} annotation on the internal implementation.
+
+\subsection{Repair \scheme{__alloc} mode for ppc32 (10.4.1)}
+
+In Version 10.4.0 on ppc32, an \scheme{__atomic __alloc} foreign-procedure annotation was
+not handled correctly. The problem has been fixed by migrating the end-of-allocation
+pointer between a register and the thread context during an allocating foreign call.
 
 \subsection{Declare \scheme{Spopcount} in scheme.h (10.4.0)}
 

s/cpnanopass.ss

@@ -4718,6 +4718,9 @@
                                                               (or (meta-cond
                                                                    [(real-register? '%ap) (eq? reg %ap)]
                                                                    [else #f])
+                                                                  (meta-cond
+                                                                   [(real-register? '%eap) (eq? reg %eap)]
+                                                                   [else #f])
                                                                   (meta-cond
                                                                    [(real-register? '%trap) (eq? reg %trap)]
                                                                    [else #f])))))

s/prims.ss

@@ -2416,7 +2416,7 @@
     scheme-object))
 
 (define $logtest
-  (foreign-procedure __atomic "(cs)logtest"
+  (foreign-procedure __atomic __alloc "(cs)logtest"
     (scheme-object scheme-object)
     scheme-object))