[Openmcl-cvs-notifications] r10625 - /trunk/source/compiler/nx1.lisp

[gb at clozure.com]

Author: gb
Date: Mon Sep  8 01:42:49 2008
New Revision: 10625

Log:
Handle :win64 in ff-call, syscall.  (This is getting silly ...)

Modified:
    trunk/source/compiler/nx1.lisp

Modified: trunk/source/compiler/nx1.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/nx1.lisp (original)
+++ trunk/source/compiler/nx1.lisp Mon Sep  8 01:42:49 2008
@@ -1350,7 +1350,7 @@
       (:linuxppc32 (%nx1-operator eabi-ff-call))
       ((:darwinppc32 :linuxppc64 :darwinppc64) (%nx1-operator poweropen-ff=
-call))
       (:darwinx8632 (%nx1-operator i386-ff-call))
-      ((:linuxx8664 :freebsdx8664 :darwinx8664 :solarisx8664) (%nx1-operat=
or ff-call)))))
+      ((:linuxx8664 :freebsdx8664 :darwinx8664 :solarisx8664 :win64) (%nx1=
-operator ff-call)))))
 =

 (defnx1 nx1-syscall ((%syscall)) (idx &rest arg-specs-and-result-spec)
   (flet ((map-to-representation-types (list)
@@ -1371,7 +1371,7 @@
              ((:darwinppc32 :darwinppc64 :linuxppc64)
               (%nx1-operator poweropen-syscall))
 	     (:darwinx8632 (%nx1-operator i386-syscall))
-             ((:linuxx8664 :freebsdx8664 :darwinx8664 :solarisx8664) (%nx1=
-operator syscall))))))
+             ((:linuxx8664 :freebsdx8664 :darwinx8664 :solarisx8664 :win64=
) (%nx1-operator syscall))))))
 =

 (defun nx1-ff-call-internal (address-expression arg-specs-and-result-spec =
operator )
   (let* ((specs ())         =