Re: Initializing a 64bit system using guix on a 32bit OS

[Alex Kost <alezost@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 2432 bytes --]

Mark H Weaver (2015-05-22 20:31 +0300) wrote:

> ludo@gnu.org (Ludovic Courtès) writes:
>
>> Alex Kost <alezost@gmail.com> skribis:
[...]
>>> So I'm wondering is there a way to init a 64-bit system from a 32-bit
>>> one or perhaps it's just not possible?
>>
>> It actually is possible, but a little bit trickier.  Mark did it a few
>> weeks ago, though in a slightly different context.  The following should
>> work:
>>
>>   1. Install an i686 GuixSD, simply with ‘guix system init’, but use an
>>      x86_64 kernel.  To do that, you need to explicitly ask for an
>>      x86_64 kernel and Guix (so that the daemon accepts to build x86_64
>>      things) in the OS config:
>>
>>        (define linux-libre-x86_64
>>          (package (inherit linux-libre)
>>            (arguments `(#:system "x86_64-linux"
>>                         ,@(package-arguments linux-libre)))))
>
> I think this is not sufficient, because it would still use the kernel
> config for i686.  Here's what I used for the kernel:
[...]
> diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
> index 26e9aa9..c42919d 100644
> --- a/gnu/packages/linux.scm
> +++ b/gnu/packages/linux.scm
> @@ -64,6 +64,7 @@
>    #:use-module (guix build-system cmake)
>    #:use-module (guix build-system python)
>    #:use-module (guix build-system trivial)
> +  #:use-module ((guix build utils) #:select (alist-replace))
>    #:use-module (srfi srfi-26)
>    #:use-module (ice-9 match))
>  
> @@ -308,6 +309,15 @@ It has been modified to remove all non-free binary blobs.")
>      (license gpl2)
>      (home-page "http://www.gnu.org/software/linux-libre/"))))
>  
> +(define linux-libre-64
> +  (package (inherit linux-libre)
> +    (arguments
> +     `(#:system "x86_64-linux"
> +       ,@(package-arguments linux-libre)))
> +    (native-inputs
> +     (alist-replace "kconfig" (list (kernel-config "x86_64-linux"))
> +                    (package-native-inputs linux-libre)))))
> +

Thanks Ludovic and Mark!  I tried to follow your advices but eventually
I got the same error:

  guix system: error: build failed: a `x86_64-linux' is required to build `/gnu/store/zh42mbm0wvbsz05zr798nchyd3bc7fh6-guix-0.8.2.c2ee19e.drv', but I am a `i686-linux'

I used the following command:

  guix system init --no-grub config-64-simple.scm /mnt/guix

I'm attaching the OS config I used.  Did I miss anything?


[-- Attachment #2: config-64-simple.scm --]
[-- Type: text/plain, Size: 1837 bytes --]

(use-modules
 (gnu)
 (guix monads)
 (guix store)
 ((guix build utils) #:select (alist-replace))
 (guix packages)
 (gnu packages linux)
 (gnu packages package-management)
 (gnu services base))

(define linux-libre-x86_64
  (package
    (inherit linux-libre)
    (arguments `(#:system "x86_64-linux"
                 #:tests? #f
                 ,@(package-arguments linux-libre)))
    (native-inputs
     (alist-replace "kconfig" (list "/mnt/storage/src/guix/gnu/packages/linux-libre-x86_64.conf")
                    (package-native-inputs linux-libre)))))

(define guix-x86_64
  (package
    (inherit guix)
    (arguments `(#:system "x86_64-linux"
                 #:tests? #f
                 ,@(package-arguments guix)))))

(define %services
  ;; Make sure the ‘guix-daemon’ services uses ‘guix-x86_64’.
  (map (lambda (mservice)
         (mlet %store-monad ((service mservice))
               (if (memq 'guix-daemon (service-provision service))
                   (guix-service #:guix guix-x86_64)
                   (return service))))
       %base-services))

(operating-system
  (host-name "host")
  (timezone "Europe/Moscow")

  (kernel linux-libre-x86_64)

  (bootloader
   (grub-configuration (device "/dev/sda")))

  (file-systems
   (cons* (file-system
            (device "guix")
            (title 'label)
            (mount-point "/")
            (type "ext4"))
          %base-file-systems))

  (users
   (list (user-account
          (name "al")
          (uid 1000)
          (home-directory "/home/al")
          (group "users")
          (supplementary-groups
           '("wheel" "audio" "video")))))

  (packages
   (cons* iproute
          %base-packages))

  (services
   (cons* (console-keymap-service "dvorak")
          %services)))