From 6d2d0b3bdb0119ef47d900fd4ff8cc6d03f508af Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sun, 11 Dec 2005 03:50:01 +0000
Subject: [PATCH] o Change :cmu19a to :cmu19c o Hack to make
 move-double-to-int-arg available in OLD-PPC and PPC   packages.   (Don't know
 why this is needed but it was.)

---
 tools/cross-scripts/cross-ppc-ppc-darwin.lisp | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/tools/cross-scripts/cross-ppc-ppc-darwin.lisp b/tools/cross-scripts/cross-ppc-ppc-darwin.lisp
index 5d6e2ad71..f7ffe56b7 100644
--- a/tools/cross-scripts/cross-ppc-ppc-darwin.lisp
+++ b/tools/cross-scripts/cross-ppc-ppc-darwin.lisp
@@ -13,7 +13,7 @@
      :hash-new
      :random-mt19937
      :darwin :bsd
-     :cmu :cmu19 :cmu19a
+     :cmu :cmu19 :cmu19c
      :relative-package-names		; Relative package names from Allegro
      :linkage-table
      :modular-arith
@@ -182,3 +182,17 @@
 (let ((ht (c::backend-sc-names c::*target-backend*)))
   (setf (gethash 'old-ppc::any-reg ht)
 	(gethash 'ppc::any-reg ht)))
+
+;; A hack for ppc.  Make sure the vop, move-double-to-int-arg, is
+;; available in both the OLD-PPC and new PPC package.  (I don't know
+;; why this is needed, but it seems to be.)
+(let ((ht (c::backend-template-names c::*target-backend*)))
+  (dolist (syms '((old-ppc::move-double-to-int-arg
+		   ppc::move-double-to-int-arg)
+		  (old-ppc::move-single-to-int-arg
+		   ppc::move-single-to-int-arg)))
+    (destructuring-bind (old new)
+	syms
+      (setf (gethash old
+		     ht)
+	    (gethash new ht)))))
-- 
GitLab