Skip to content
Snippets Groups Projects
Commit 766ad7a3 authored by rtoy's avatar rtoy
Browse files

o Add OLD-VM as nickname.

o Add hack for fused-multiply-add and fused-multiply-subtract.  Not
  sure why this is needed, but without it, we can't cross-compile on
  ppc.
parent 220985ce
No related branches found
No related tags found
No related merge requests found
......@@ -2,7 +2,7 @@
;;; Rename the X86 package and backend so that new-backend does the
;;; right thing.
(rename-package "PPC" "OLD-PPC")
(rename-package "PPC" "OLD-PPC" '("OLD-VM"))
(setf (c:backend-name c:*native-backend*) "OLD-PPC")
(c::new-backend "PPC"
......@@ -147,6 +147,11 @@
(setf (fdefinition 'vm::ash-left-mod32) #'old-ppc::ash-left-mod32)
(setf (fdefinition 'vm::lognot-mod32) #'old-ppc::lognot-mod32)
;; Fused multiply hack. Don't know why this is needed for a cross-compile
(setf (fdefinition 'vm::fused-multiply-add) #'old-ppc::fused-multiply-add)
(setf (fdefinition 'vm::fused-multiply-subtract) #'old-ppc::fused-multiply-subtract)
;; end
(let ((function (symbol-function 'kernel:error-number-or-lose)))
(let ((*info-environment* (c:backend-info-environment c:*target-backend*)))
(setf (symbol-function 'kernel:error-number-or-lose) function)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment