Commit 3a3e1af7 authored by Karsten Poeck's avatar Karsten Poeck
Browse files

Assure that the bitcode-file also gets renamed

parent 9ddf5d0b
...@@ -757,12 +757,16 @@ it will filter them appropriately." ...@@ -757,12 +757,16 @@ it will filter them appropriately."
#+sbcl (when cfasl-file (rename-file-overwriting-target tmp-cfasl cfasl-file)) #+sbcl (when cfasl-file (rename-file-overwriting-target tmp-cfasl cfasl-file))
#+clasp #+clasp
(progn (progn
;;; the following 3 rename-file-overwriting-target better be atomic, but we can't implement this right now ;;; the following 4 rename-file-overwriting-target better be atomic, but we can't implement this right now
#+:target-os-darwin #+:target-os-darwin
(let ((temp-dwarf (pathname (concatenate 'string (namestring output-truename) ".dwarf"))) (let ((temp-dwarf (pathname (concatenate 'string (namestring output-truename) ".dwarf")))
(target-dwarf (pathname (concatenate 'string (namestring physical-output-file) ".dwarf")))) (target-dwarf (pathname (concatenate 'string (namestring physical-output-file) ".dwarf"))))
(when (probe-file temp-dwarf) (when (probe-file temp-dwarf)
(rename-file-overwriting-target temp-dwarf target-dwarf))) (rename-file-overwriting-target temp-dwarf target-dwarf)))
;;; need to rename the bc or ll file as well or test-bundle.script fails
(rename-file-overwriting-target
(compile-file-pathname tmp-file :output-type :bitcode)
(compile-file-pathname physical-output-file :output-type :bitcode))
(rename-file-overwriting-target tmp-object-file object-file)) (rename-file-overwriting-target tmp-object-file object-file))
(rename-file-overwriting-target output-truename physical-output-file) (rename-file-overwriting-target output-truename physical-output-file)
(setf output-truename (truename physical-output-file))) (setf output-truename (truename physical-output-file)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment