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

compiler/cm: avoid race in recompile

Browse Source 
The new path for recompiling from machine-independent files
trues to read a ".zo" file without holding the recmopilation
lock and without an `exn:fail:filesystem` handler.
This commit is contained in:
Matthew Flatt 2018-11-25 08:11:21 -07:00
parent 3833a22f75
commit 695e270197
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/compiler/private/cm-minimal.rkt
View File

@ -571,7 +571,7 @@
(raise ex))])
(compile-zo* path->mode roots path src-sha1 read-src-syntax zo-name up-to-date collection-cache
#:recompile-from recompile-from
#:assume-compiled-sha1 assume-compiled-sha1
#:assume-compiled-sha1 (force assume-compiled-sha1)
#:use-existing-deps use-existing-deps)))
(trace-printf "~acompiled ~a" (if recompile-from "re" "") actual-path)))
(lambda ()
@ -584,7 +584,8 @@
(define (build/recompile)
(build #:recompile-from zo-name
#:assume-compiled-sha1 (or (deps-assume-compiled-sha1 deps)
(call-with-input-file* zo-name sha1))
;; delay until lock is held:
(delay (call-with-input-file* zo-name sha1)))
#:use-existing-deps deps))
(define src-sha1 (and zo-exists?
deps