futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: Clang: Install the CFI blacklist.

Browse Source 
* gnu/packages/llvm.scm (clang-from-llvm)[arguments]: Add phase to symlink
cfi_blacklist.txt from CLANG-RUNTIME.
This commit is contained in:
Marius Bakke 2020-07-21 16:41:30 +02:00
parent 66c3a35b1b
commit 300b795520
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/packages/llvm.scm
View File

@ -388,6 +388,25 @@ given PATCHES. When TOOLS-EXTRA is given, it must point to the
(("@GLIBC_LIBDIR@")
(string-append libc "/lib"))))))
#t)))
(add-after 'install 'symlink-cfi_blacklist
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib-share (string-append out "/lib/clang/"
,version "/share"))
(compiler-rt (assoc-ref inputs "clang-runtime"))
;; The location varies between Clang versions.
(cfi-blacklist
(cond ((file-exists?
(string-append compiler-rt "/cfi_blacklist.txt"))
(string-append compiler-rt "/cfi_blacklist.txt"))
(else (string-append compiler-rt
"/share/cfi_blacklist.txt")))))
(mkdir-p lib-share)
;; Symlink cfi_blacklist.txt to where Clang expects
;; to find it.
(symlink cfi-blacklist
(string-append lib-share "/cfi_blacklist.txt"))
#t)))
(add-after 'install 'install-clean-up-/share/clang
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))