ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

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

Change-Id: I1cfc8b50fa4b2b864f8f8aa8898cc405ffc02580
This commit is contained in:
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 @@ (define (target->openssl-target 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 @@ (define (target->openssl-target 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