suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Parallel build fixes

Browse Source
This commit is contained in:
Kevin Tew 2010-07-05 14:19:59 -06:00
parent c968f45d85
commit ecdd1ebc7a
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/meta/props
View File

@ -1232,6 +1232,7 @@ path/s is either such a string or a list of them.
"collects/scriblib" responsible (mflatt) "collects/scriblib" responsible (mflatt)
"collects/setup" responsible (mflatt) "collects/setup" responsible (mflatt)
"collects/setup/main.rkt" drdr:command-line #f "collects/setup/main.rkt" drdr:command-line #f
"collects/setup/parallel-build-worker.rkt" drdr:command-line #f
"collects/setup/plt-installer.rkt" drdr:command-line (gracket-text "-t" *) "collects/setup/plt-installer.rkt" drdr:command-line (gracket-text "-t" *)
"collects/setup/setup-go.rkt" drdr:command-line #f "collects/setup/setup-go.rkt" drdr:command-line #f
"collects/setup/unixstyle-install.rkt" drdr:command-line (mzc *) "collects/setup/unixstyle-install.rkt" drdr:command-line (mzc *)

6
collects/setup/parallel-build-worker.rkt
View File

@ -1,5 +1,7 @@
#lang racket #lang racket/base
(require compiler/cm) (require compiler/cm)
(require racket/match)
(let ([cmc (make-caching-managed-compile-zo)] (let ([cmc (make-caching-managed-compile-zo)]
[worker-id (read)]) [worker-id (read)])
(let loop () (let loop ()
@ -25,7 +27,7 @@
[current-output-port out-str-port] [current-output-port out-str-port]
[current-error-port err-str-port] [current-error-port err-str-port]
;[manager-compile-notify-handler pp] ;[manager-compile-notify-handler pp]
) )
(cmc (build-path dir file))) (cmc (build-path dir file)))
(send/resp 'DONE)))) (send/resp 'DONE))))

1
collects/setup/setup-unit.rkt
View File

@ -661,6 +661,7 @@
(match (parallel-build) (match (parallel-build)
[#t [#t
(compile-cc (collection->cc (list (string->path "racket"))) 0) (compile-cc (collection->cc (list (string->path "racket"))) 0)
(managed-compile-zo (build-path main-collects-dir "setup/parallel-build-worker.rkt"))
(with-specified-mode (with-specified-mode
(let ([cct (move-drscheme-to-end (sort-collections-tree (collection-tree-map top-level-plt-collects)))]) (let ([cct (move-drscheme-to-end (sort-collections-tree (collection-tree-map top-level-plt-collects)))])
(iterate-cct (lambda (cc) (iterate-cct (lambda (cc)