An alternative patch that keeps places enabled but uses processes for build.
diff --git a/collects/setup/parallel-do.rkt b/collects/setup/parallel-do.rkt
index 00823fe..2716c2a 100644
--- a/collects/setup/parallel-do.rkt
+++ b/collects/setup/parallel-do.rkt
@@ -168,7 +168,8 @@
(find-system-path 'orig-dir))))))
(define (parallel-do-event-loop module-path funcname initialmsg
jobqueue nprocs [stopat #f])
- (define use-places (place-enabled?))
+; (define use-places (place-enabled?))
+ (define use-places #f)
(define (spawn id)
(define wrkr (if use-places (new PlaceWorker%) (new Worker%)))
(wrkr/spawn wrkr id module-path funcname initialmsg)
On 04/21/2011 06:13 AM, mfl...@racket-lang.org wrote:
mflatt has updated `master' from 2177681336 to 8760d38a95.
http://git.racket-lang.org/plt/2177681336..8760d38a95
=====[ 1 Commits ]======================================================
Directory summary:
38.9% src/racket/
12.4% src/worksp/
48.6% src/
~~~~~~~~~~
8760d38 Matthew Flatt<mfl...@racket-lang.org> 2011-04-21 06:12
:
| disable places-by-default for now
| --- pending further investigation of memory consumption
:
M src/configure | 12 ++++++------
M src/racket/configure.ac | 12 ++++++------
M src/worksp/mzconfig.h | 2 +-
=====[ Overall Diff ]===================================================
src/configure
~~~~~~~~~~~~~
--- OLD/src/configure
+++ NEW/src/configure
@@ -1327,7 +1327,7 @@ Optional Features:
--enable-jit compile JIT support (enabled by default)
--enable-foreign compile foreign support (enabled by default)
--enable-libffi use installed libffi (enabled by default)
- --enable-places compile places support (usually enabled by default)
+ --enable-places compile places support
--enable-futures compile futures support (usually enabled by default)
--enable-cgcdefault use CGC (Boehm or Senora) as default build
--enable-sgc use Senora GC instead of the Boehm GC
@@ -8255,11 +8255,11 @@ fi
############### places ###################
-if test "${enable_parallel_by_default}" = "yes" ; then
- if test "${enable_places}" = "" ; then
- enable_places=yes
- fi
-fi
+#if test "${enable_parallel_by_default}" = "yes" ; then
+# if test "${enable_places}" = "" ; then
+# enable_places=yes
+# fi
+#fi
if test "${enable_places}" = "yes" ; then
src/racket/configure.ac
~~~~~~~~~~~~~~~~~~~~~~~
--- OLD/src/racket/configure.ac
+++ NEW/src/racket/configure.ac
@@ -38,7 +38,7 @@ AC_ARG_ENABLE(jit, [ --enable-jit compile JIT
support (enabled b
AC_ARG_ENABLE(foreign, [ --enable-foreign compile foreign support
(enabled by default)], , enable_foreign=yes)
AC_ARG_ENABLE(libffi, [ --enable-libffi use installed libffi
(enabled by default)], , enable_libffi=yes)
-AC_ARG_ENABLE(places, [ --enable-places compile places support
(usually enabled by default)])
+AC_ARG_ENABLE(places, [ --enable-places compile places support])
AC_ARG_ENABLE(futures, [ --enable-futures compile futures support
(usually enabled by default)])
AC_ARG_ENABLE(cgcdefault, [ --enable-cgcdefault use CGC (Boehm or
Senora) as default build])
@@ -1006,11 +1006,11 @@ fi
############### places ###################
-if test "${enable_parallel_by_default}" = "yes" ; then
- if test "${enable_places}" = "" ; then
- enable_places=yes
- fi
-fi
+#if test "${enable_parallel_by_default}" = "yes" ; then
+# if test "${enable_places}" = "" ; then
+# enable_places=yes
+# fi
+#fi
if test "${enable_places}" = "yes" ; then
AC_DEFINE(MZ_USE_PLACES,1,[Places enabled])
src/worksp/mzconfig.h
~~~~~~~~~~~~~~~~~~~~~
--- OLD/src/worksp/mzconfig.h
+++ NEW/src/worksp/mzconfig.h
@@ -42,7 +42,7 @@
#define MZ_USE_FUTURES
/* Enable places: */
-#define MZ_USE_PLACES
+/*#define MZ_USE_PLACES*/
/* Enable single-precision floats: */
#define USE_SINGLE_FLOATS
_________________________________________________
For list-related administrative tasks:
http://lists.racket-lang.org/listinfo/dev
