me
/
guix
Archived
1
0
Fork 0
Code

gnu: openssl: Don't error when targeting avr. 

* gnu/packages/tls.scm (target->openssl-target): Add case for avr.

Change-Id: I1cfc8b50fa4b2b864f8f8aa8898cc405ffc02580
Efraim Flashner 2023-12-12 09:31:18 +02:00
parent f03029a00e
commit baeff7f546
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/tls.scm
View File

@ -409,12 +409,16 @@ OpenSSL for TARGET."
;; Keep this code outside the build code, ;; Keep this code outside the build code,
;; such that new targets can be added ;; such that new targets can be added
;; without causing rebuilds for other targets. ;; without causing rebuilds for other targets.
(if (target-mingw? target) (cond
(string-append ((target-mingw? target)
(string-append
"mingw" "mingw"
(if (target-x86-64? target) (if (target-x86-64? target)
"64" "64"
"")) "")))
;; AVR doesn't seem to be supported.
((target-avr? target) #f)
(else
(let ((kernel (let ((kernel
(cond ((target-hurd? target) (cond ((target-hurd? target)
"hurd") "hurd")
@ -450,7 +454,7 @@ OpenSSL for TARGET."
"generic64") "generic64")
(else (else
(error "unsupported openssl target architecture"))))) (error "unsupported openssl target architecture")))))
(string-append kernel "-" arch)))) (string-append kernel "-" arch)))))
(define-public openssl-1.1 (define-public openssl-1.1
(package (package