[Openmcl-cvs-notifications] r10676 - /trunk/source/lisp-kernel/x86-spentry64.s

[gb at clozure.com]

Author: gb
Date: Wed Sep 10 00:03:30 2008
New Revision: 10676

Log:
No more 'syscalls' on Windows, so no more windows_syscall_table.
(If we try to do a syscall on windows, return -1).

Modified:
    trunk/source/lisp-kernel/x86-spentry64.s

Modified: trunk/source/lisp-kernel/x86-spentry64.s
=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/lisp-kernel/x86-spentry64.s (original)
+++ trunk/source/lisp-kernel/x86-spentry64.s Wed Sep 10 00:03:30 2008
@@ -4374,14 +4374,13 @@
 	__(movq (%rsp),%rbp)
 	__(addq $2*node_size,%rsp)
         __ifdef([WINDOWS])
-         __(lea C(windows_syscall_table)(%rip),%rax)
          __(movq %rcontext_reg,%csave0)
          __(pop %carg0)
          __(pop %carg1)
          __(pop %carg2)
          __(pop %carg3)
          __(subq $0x20,%rsp)
-         __(call *(%rax,%arg_z))
+         __(orq $-1,%cret)
          __(addq $0x20,%rsp)
         __else
 	 __(unbox_fixnum(%arg_z,%rax))