[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#64188] [PATCH 8/8] transformations: Allow autotuning for go package
From: |
Efraim Flashner |
Subject: |
[bug#64188] [PATCH 8/8] transformations: Allow autotuning for go packages. |
Date: |
Tue, 20 Jun 2023 10:51:09 +0300 |
* guix/transformations.scm (tuned-package)[build-system]: When the
inherited package uses the go-build-system, use a generic
micro-architecture.
[arguments]: Adjust the 'set-microarchitecture phase for changes in the
code.
---
guix/transformations.scm | 50 ++++++++++++++++++++++------------------
1 file changed, 27 insertions(+), 23 deletions(-)
diff --git a/guix/transformations.scm b/guix/transformations.scm
index 47eb4b0515..122b0e74aa 100644
--- a/guix/transformations.scm
+++ b/guix/transformations.scm
@@ -33,7 +33,9 @@ (define-module (guix transformations)
#:autoload (guix upstream) (package-latest-release
upstream-source-version
upstream-source-signature-urls)
- #:autoload (guix cpu) (current-cpu cpu->gcc-architecture)
+ #:autoload (guix cpu) (current-cpu
+ cpu->gcc-architecture
+ gcc-architecture->generic-architecture)
#:use-module (guix utils)
#:use-module (guix memoization)
#:use-module (guix gexp)
@@ -568,16 +570,19 @@ (define (build-system-with-tuning-compiler bs
micro-architecture)
(define (tuned-package p micro-architecture)
"Return package P tuned for MICRO-ARCHITECTURE."
+ (let ((generic-micro-arch (gcc-architecture->generic-architecture
+ micro-architecture)))
(package
(inherit p)
(build-system
- ;; The go compiler doesn't need to be wrapped.
- ;; XXX: This is where we check for supported micro-architectures.
- (if (eq? (build-system-name (package-build-system p))
- 'go)
+ ;; The go compiler doesn't need to be wrapped but we want the error
+ ;; checking to make sure we're targeting a recognized optimization
target.
+ (build-system-with-tuning-compiler
(package-build-system p)
- (build-system-with-tuning-compiler (package-build-system p)
- micro-architecture)))
+ (if (eq? (build-system-name (package-build-system p))
+ 'go)
+ generic-micro-arch
+ micro-architecture)))
(arguments
;; The machine building this package may or may not be able to run code
;; for MICRO-ARCHITECTURE. Because of that, skip tests; they are run for
@@ -591,21 +596,20 @@ (define (tuned-package p micro-architecture)
#~(modify-phases #$phases
(add-after 'setup-go-environment 'set-microarchitecture
(lambda _
- (let ((microarch #$micro-architecture))
- (cond
- ((string-prefix? "arm" microarch)
- (setenv "GOARM" (string-take-right microarch 1))
- (format #t "Setting GOARM to ~s."
- (getenv "GOARM")))
- ((string-prefix? "powerpc" microarch)
- (setenv "GOPPC64" microarch)
- (format #t "Setting GOPPC64 to ~s."
- (getenv "GOPPC64")))
- ((string-prefix? "x86_64" microarch)
- (setenv "GOAMD" (string-take-right microarch 2))
- (format #t "Setting GOAMD to ~s.\n"
- (getenv "GOAMD")))
- (else #t))))))
+ (cond
+ ((string-prefix? "arm" #$generic-micro-arch)
+ (setenv "GOARM" (string-take-right #$generic-micro-arch
1))
+ (format #t "Setting GOARM to ~s."
+ (getenv "GOARM")))
+ ((string-prefix? "powerpc" #$generic-micro-arch)
+ (setenv "GOPPC64" #$generic-micro-arch)
+ (format #t "Setting GOPPC64 to ~s."
+ (getenv "GOPPC64")))
+ ((string-prefix? "x86_64" #$generic-micro-arch)
+ (setenv "GOAMD" (string-take-right #$generic-micro-arch
2))
+ (format #t "Setting GOAMD to ~s.\n"
+ (getenv "GOAMD")))
+ (else #t)))))
phases))))
(properties
@@ -613,7 +617,7 @@ (define (tuned-package p micro-architecture)
;; Remove the 'tunable?' property so that 'package-tuning' does not
;; call 'tuned-package' again on this one.
- ,@(alist-delete 'tunable? (package-properties p))))))
+ ,@(alist-delete 'tunable? (package-properties p)))))))
(define (tunable-package? package)
"Return true if package PACKAGE is \"tunable\"--i.e., if tuning it for the
--
Efraim Flashner <efraim@flashner.co.il> רנשלפ םירפא
GPG key = A28B F40C 3E55 1372 662D 14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted
- [bug#64188] [PATCH 5/8] gnu: go: Add CPU tuning targets., (continued)
- [bug#64188] [PATCH 5/8] gnu: go: Add CPU tuning targets., Efraim Flashner, 2023/06/20
- [bug#64188] [PATCH 2/8] guix: cpu: Add inexact CPU matching., Efraim Flashner, 2023/06/20
- [bug#64188] [PATCH 3/8] guix: cpu: Rewrite fallback for x86_64 cpu->gcc-architecture., Efraim Flashner, 2023/06/20
- [bug#64188] [PATCH 6/8] transformations: Allow tuning go packages., Efraim Flashner, 2023/06/20
- [bug#64188] [PATCH 7/8] guix: cpu: Add gcc-architecture->generic-architecture mapping., Efraim Flashner, 2023/06/20
- [bug#64188] [PATCH 4/8] guix: cpu: Refactor cpu->gcc-architecture., Efraim Flashner, 2023/06/20
- [bug#64188] [PATCH 8/8] transformations: Allow autotuning for go packages.,
Efraim Flashner <=
- [bug#64188] [PATCH 0/8] More package tuning, Ludovic Courtès, 2023/06/25
- [bug#64188] [PATCH v2 0/7] More package tuning, Efraim Flashner, 2023/06/26
- [bug#64188] [PATCH v2 6/7] gnu: go: Add CPU tuning targets., Efraim Flashner, 2023/06/26
- [bug#64188] [PATCH v2 1/7] gnu: %gcc-11-x86_64-micro-architectures: Add psabi entries., Efraim Flashner, 2023/06/26
- [bug#64188] [PATCH v2 4/7] guix: cpu: Refactor cpu->gcc-architecture., Efraim Flashner, 2023/06/26
- [bug#64188] [PATCH v2 2/7] guix: cpu: Add generalized CPU matching., Efraim Flashner, 2023/06/26
- [bug#64188] [PATCH v2 7/7] transformations: Allow tuning go packages., Efraim Flashner, 2023/06/26
- [bug#64188] [PATCH v2 5/7] guix: cpu: Add gcc-architecture->micro-architecture-level mapping., Efraim Flashner, 2023/06/26
- [bug#64188] [PATCH v2 3/7] guix: cpu: Rewrite fallback for x86_64 cpu->gcc-architecture., Efraim Flashner, 2023/06/26