diff --git a/hydra/machines-for-berlin.scm b/hydra/machines-for-berlin.scm index 91df46a..d4f14b2 100644 --- a/hydra/machines-for-berlin.scm +++ b/hydra/machines-for-berlin.scm @@ -1,5 +1,5 @@ ;; Install this file as /etc/guix/machines.scm on berlin.guixsd.org -(use-modules (ice-9 match)) +(use-modules (ice-9 match) (srfi srfi-1)) ;; These are all hosted at the MDC in rack A4. They are connected to ;; a dedicated VLAN and can only be accessed from berlin.guixsd.org. @@ -113,6 +113,20 @@ (speed .9) (parallel-builds 1))) ;limit to favor the "real" ARMv7 machines +(define (x86_64->qemu-armhf machine) + (build-machine + (inherit machine) + (system "armhf-linux") + (speed .9) + (parallel-builds 1))) + +(define (x86_64->qemu-aarch64 machine) + (build-machine + (inherit machine) + (system "aarch64-linux") + (speed .9) + (parallel-builds 1))) + (define overdrive ;; The SoftIron OverDrive 1000 donated by ARM: ;; . @@ -150,4 +164,7 @@ (let ((x86_64 (map template-x86_64 hosts))) (append overdrive (map aarch64->armhf overdrive) armv7 - x86_64 (map x86_64->i686 x86_64))) + x86_64 (map x86_64->i686 x86_64) + (map x86_64->qemu-aarch64 (take (drop x86_64 5) 5)) + (map x86_64->qemu-armhf (take x86_64 5)))) +