[Openmcl-cvs-notifications] r13971 - in /trunk/source/compiler: PPC/PPC32/ppc32-arch.lisp PPC/PPC64/ppc64-arch.lisp X86/X8632/x8632-arch.lisp X86/X8664/x8664-arch.lisp nx-basic.lisp

[gb at clozure.com]

Author: gb
Date: Sat Jul 17 05:18:16 2010
New Revision: 13971

Log:
Define kernel import for WAIT-FOR-SIGNAL.

Modified:
    trunk/source/compiler/PPC/PPC32/ppc32-arch.lisp
    trunk/source/compiler/PPC/PPC64/ppc64-arch.lisp
    trunk/source/compiler/X86/X8632/x8632-arch.lisp
    trunk/source/compiler/X86/X8664/x8664-arch.lisp
    trunk/source/compiler/nx-basic.lisp

Modified: trunk/source/compiler/PPC/PPC32/ppc32-arch.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/PPC/PPC32/ppc32-arch.lisp (original)
+++ trunk/source/compiler/PPC/PPC32/ppc32-arch.lisp Sat Jul 17 05:18:16 2010
@@ -577,7 +577,7 @@
   FindSymbol
   malloc
   free
-  jvm-init
+  wait-for-signal
   tcr-frame-ptr
   register-xmacptr-dispose-function
   open-debug-output

Modified: trunk/source/compiler/PPC/PPC64/ppc64-arch.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/PPC/PPC64/ppc64-arch.lisp (original)
+++ trunk/source/compiler/PPC/PPC64/ppc64-arch.lisp Sat Jul 17 05:18:16 2010
@@ -647,7 +647,7 @@
   FindSymbol
   malloc
   free
-  jvm-init
+  wait-for-signal
   tcr-frame-ptr
   register-xmacptr-dispose-function
   open-debug-output

Modified: trunk/source/compiler/X86/X8632/x8632-arch.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/X86/X8632/x8632-arch.lisp (original)
+++ trunk/source/compiler/X86/X8632/x8632-arch.lisp Sat Jul 17 05:18:16 2010
@@ -707,7 +707,7 @@
   FindSymbol
   malloc
   free
-  jvm-init
+  wait-for-signal
   tcr-frame-ptr
   register-xmacptr-dispose-function
   open-debug-output

Modified: trunk/source/compiler/X86/X8664/x8664-arch.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/X86/X8664/x8664-arch.lisp (original)
+++ trunk/source/compiler/X86/X8664/x8664-arch.lisp Sat Jul 17 05:18:16 2010
@@ -793,7 +793,7 @@
   FindSymbol
   malloc
   free
-  jvm-init
+  wait-for-signal
   tcr-frame-ptr
   register-xmacptr-dispose-function
   open-debug-output

Modified: trunk/source/compiler/nx-basic.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/nx-basic.lisp (original)
+++ trunk/source/compiler/nx-basic.lisp Sat Jul 17 05:18:16 2010
@@ -714,6 +714,7 @@
 ;;  decomp-acode can also be used separately for debugging.
 ;;
 (defmacro dbg-assert (form)
+  #-debug-code-notes (declare (ignore form))
   #+debug-code-notes `(assert ,form))
 =

 (defvar *acode-right-margin* 120)