[Openmcl-cvs-notifications] r11986 - /trunk/source/lisp-kernel/memory.c

[gb at clozure.com]

Author: gb
Date: Wed Apr 29 11:53:58 2009
New Revision: 11986

Log:
suppress debugging msg on Windows

Modified:
    trunk/source/lisp-kernel/memory.c

Modified: trunk/source/lisp-kernel/memory.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=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/memory.c (original)
+++ trunk/source/lisp-kernel/memory.c Wed Apr 29 11:53:58 2009
@@ -177,7 +177,9 @@
 		       MEM_RESERVE,
 		       PAGE_NOACCESS);
   if (!start) {
+#if DEBUG_MEMORY    =

     fprintf(dbgout, "Can't get desired heap address at 0x" LISP "\n", want=
);
+#endif
     start =3D VirtualAlloc(0,
 			 totalsize + heap_segment_size,
 			 MEM_RESERVE,