Changeset 347

Timestamp:

Jan 20, 2004, 3:39:32 PM (21 years ago)

Author:

Gary Byers

Message:

New backend names.

File:

• trunk/ccl/compiler/nx1.lisp (modified) (2 diffs)

trunk/ccl/compiler/nx1.lisp

@@ -1236 +1236 @@
     address-expression arg-specs-and-result-spec
     (ecase (backend-name *target-backend*)
-      (:linuxppc (%nx1-operator eabi-ff-call))
-      (:darwinppc (%nx1-operator poweropen-ff-call)))))
+      (:linuxppc32 (%nx1-operator eabi-ff-call))
+      (:darwinppc32 (%nx1-operator poweropen-ff-call)))))
 
 (defnx1 nx1-syscall ((%syscall)) (idx &rest arg-specs-and-result-spec)
@@ -1243 +1243 @@
     idx arg-specs-and-result-spec
     (ecase (backend-name *target-backend*)
-      (:linuxppc (%nx1-operator linux-syscall))
-      (:darwinppc (%nx1-operator darwin-syscall)))))
+      (:linuxppc32 (%nx1-operator linux-syscall))
+      (:darwinppc32 (%nx1-operator darwin-syscall)))))
 
 (defun nx1-ff-call-internal (address-expression arg-specs-and-result-spec operator )