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

fix problem where --save-temps didn't work for 3m-generated file (due to lingering handler installed by 3m)

Browse Source 
svn: r7320
This commit is contained in:
Matthew Flatt 2007-09-11 20:56:08 +00:00
parent 188186ca25
commit dec670ff75
2 changed files with 30 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
collects/compiler/private/driver.ss
View File

@ -1370,29 +1370,33 @@
(when (compiler:option:verbose) (printf " [compiling native code to \"~a\"]~n"
obj-output-path))
;; Compile
(let ([compile-thunk
(lambda ()
(with-handlers
([void (lambda (exn)
(compiler:fatal-error
#f
(string-append
" C compiler did not complete successfully"
(string #\newline)
(exn-message exn)))
(compiler:report-messages! #t))])
(compile-extension (not (compiler:option:verbose))
(or c3m-output-path c-output-path) obj-output-path
(list (collection-path "compiler")))))])
(verbose-time compile-thunk))
(let ([clean-up
(lambda ()
(when (and (compiler:option:clean-intermediate-files)
input-path)
(if c3m-output-path
(delete-file c3m-output-path)
(delete-file c-output-path))))])
;; clean-up
(when (and (compiler:option:clean-intermediate-files)
input-path)
(if c3m-output-path
(delete-file c3m-output-path)
(delete-file c-output-path)))
;; Compile
(let ([compile-thunk
(lambda ()
(with-handlers
([void (lambda (exn)
(clean-up)
(compiler:fatal-error
#f
(string-append
" C compiler did not complete successfully"
(string #\newline)
(exn-message exn)))
(compiler:report-messages! #t))])
(compile-extension (not (compiler:option:verbose))
(or c3m-output-path c-output-path) obj-output-path
(list (collection-path "compiler")))))])
(verbose-time compile-thunk))
(clean-up))
(if multi-o?
(printf " [output to \"~a\"]~n" obj-output-path)

4
collects/compiler/private/xform.ss
View File

@ -13,7 +13,9 @@
precompiling-header? precompiled-header
show-info? output-depends-info?
gc-variable-stack-through-funcs?)
(parameterize ([current-output-port (current-output-port)])
(parameterize ([current-output-port (current-output-port)] ; because we mutate these...
[error-escape-handler (error-escape-handler)]
[current-inspector (current-inspector)])
(begin-with-definitions
(define power-inspector (current-inspector))
(current-inspector (make-inspector))