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

Reply via email to