Changeset 14543

Timestamp:

Jan 2, 2011, 3:33:21 AM (14 years ago)

Author:

Gary Byers

Message:

Make things a little easier to cross-compile.

File:

• trunk/source/compiler/ARM/arm-backend.lisp (modified) (5 diffs)

trunk/source/compiler/ARM/arm-backend.lisp

@@ -228 +228 @@
 
 
-#+darwinarm-target
+#+(or darwinarm-target (not arm-target))
 (defvar *darwinarm-backend*
   (make-backend :lookup-opcode #'arm::lookup-arm-instruction
@@ -251 +251 @@
                 :target-arch arm::*arm-target-arch*))
 
-#+androidarm-target
+#+(or androidarm-target (not arm-target))
 (defvar *androidarm-backend*
   (make-backend :lookup-opcode #'arm::lookup-arm-instruction
@@ -278 +278 @@
 
 
-#+darwinarm-target
+#+(or darwinarm-target (not arm-target))
 (pushnew *darwinarm-backend* *known-arm-backends* :key #'backend-name)
 
-#+androidarm-target
+#+(or androidarm-target (not arm-target))
 (pushnew *androidarm-backend* *known-arm-backends* :key #'backend-name)
 
@@ -360 +360 @@
 
 (pushnew *arm-backend* *known-backends* :key #'backend-name)
+#-arm-target
+(progn
+  (pushnew *linuxarm-backend* *known-backends* :key #'backend-name)
+  (pushnew *darwinarm-backend* *known-backends* :key #'backend-name)  
+  (pushnew *androidarm-backend* *known-backends* :key #'backend-name))
 
 
@@ -365 +370 @@
   `(ccl::%istruct 'arm::fake-stack-frame ,sp ,next-sp ,fn ,lr ,vsp ,xp))
 
+#+arm-target
 (require "ARM-VINSNS")