From: ludo@gnu.org (Ludovic Courtès)
To: "Taylan Ulrich \"Bayırlı/Kammer\"" <taylanbayirli@gmail.com>
Cc: guix-devel@gnu.org
Subject: Re: [PATCH] build: pull: Compile .scm files in one process.
Date: Thu, 05 Nov 2015 22:06:43 +0100 [thread overview]
Message-ID: <87611gdul8.fsf@gnu.org> (raw)
In-Reply-To: <87si4kxtge.fsf@T420.taylan> ("Taylan Ulrich \=\?utf-8\?Q\?\=5C\=22Bay\=C4\=B1rl\=C4\=B1\=2FKammer\=5C\=22\=22's\?\= message of "Thu, 05 Nov 2015 18:10:57 +0100")
taylanbayirli@gmail.com (Taylan Ulrich "Bayırlı/Kammer") skribis:
> It used to take ~18 minutes on my machine, now less than 3.
Sounds compelling. :-)
> From fd5d9bf77fd38fad354d66c31e57bc9bbc86481f Mon Sep 17 00:00:00 2001
> From: =?UTF-8?q?Taylan=20Ulrich=20Bay=C4=B1rl=C4=B1/Kammer?=
> <taylanbayirli@gmail.com>
> Date: Thu, 5 Nov 2015 16:21:48 +0100
> Subject: [PATCH] build: pull: Compile .scm files in one process.
>
> * guix/build/pull.scm (call-with-process): Removed procedure.
> (report-build-progress): Removed procedure.
> (p-for-each): Removed procedure.
> (build-guix): Don't create subprocesses to compile the .scm files.
[...]
> - ;; Build guix/*.scm before gnu/*.scm to speed
> - ;; things up.
> - (sort (find-files out "\\.scm")
> - (let ((guix (string-append out "/guix"))
> - (gnu (string-append out "/gnu")))
> - (lambda (a b)
> - (or (and (string-prefix? guix a)
> - (string-prefix? gnu b))
> - (string<? a b))))))))
This logic should be kept (with this version of the patch, it starts
compiling gnu.scm, which depends on many modules, so the progress report
stays at 0% for maybe 30s and then suddenly reaches 20%.)
> + ;; Compile the .scm files. Also load every compiled file after writing it
> + ;; to work around <http://bugs.gnu.org/15602> (FIXME).
> + (let* ((files (filter (cut string-suffix? ".scm" <>)
> + (find-files out "\\.scm")))
> + (total (length files)))
> + (let loop ((file (car files))
> + (files (cdr files))
> + (completed 0))
> + (display #\cr log-port)
> + (format log-port "compiling...\t~5,1f% of ~d files" ;FIXME: i18n
> + (* 100. (/ completed total)) total)
> + (force-output log-port)
> + (let ((go (string-append (string-drop-right file 4)
> + ".go")))
> + (format debug-port "~%compiling '~a'...~%" file)
> + (parameterize ((current-warning-port debug-port))
> + (compile-file file
> + #:output-file go
> + #:opts
> + %auto-compilation-options)
> + (load-compiled go)))
So this simple ‘load-compiled’ call addresses
<http://bugs.gnu.org/15602>, right? This is where the comment and
explanation about this bug should go.
The ‘load-compiled’ code seems to be the only difference with 52af657a,
which was right before we noticed #15602 (which led to 178f77b2.)
Another stylistic issue: please use ‘match’ instead of the unnameable
primitives. ;-)
Could you send an updated patch?
Thanks!
Ludo’.
next prev parent reply other threads:[~2015-11-05 21:06 UTC|newest]
Thread overview: 41+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-11-05 17:10 [PATCH] build: pull: Compile .scm files in one process Taylan Ulrich Bayırlı/Kammer
2015-11-05 21:06 ` Ludovic Courtès [this message]
2015-11-06 8:56 ` Taylan Ulrich Bayırlı/Kammer
2015-11-06 20:50 ` Ludovic Courtès
2015-11-07 9:54 ` Taylan Ulrich Bayırlı/Kammer
2015-11-10 18:00 ` Ludovic Courtès
2015-11-11 12:12 ` Taylan Ulrich Bayırlı/Kammer
2015-11-11 13:26 ` Ludovic Courtès
2015-11-12 10:23 ` Taylan Ulrich Bayırlı/Kammer
2015-11-12 12:07 ` Andy Wingo
2015-11-12 12:27 ` Taylan Ulrich Bayırlı/Kammer
2015-11-12 12:36 ` Andy Wingo
2015-11-12 13:52 ` Taylan Ulrich Bayırlı/Kammer
2015-11-12 20:44 ` Ludovic Courtès
2015-11-13 14:28 ` Taylan Ulrich Bayırlı/Kammer
2015-11-14 14:54 ` Ludovic Courtès
2015-11-26 22:20 ` Ludovic Courtès
2015-11-27 8:53 ` Taylan Ulrich Bayırlı/Kammer
2015-11-27 10:07 ` Ludovic Courtès
2015-11-27 15:16 ` Taylan Ulrich Bayırlı/Kammer
2015-11-30 13:04 ` Ludovic Courtès
2015-12-02 8:09 ` Taylan Ulrich Bayırlı/Kammer
2015-12-03 10:44 ` Ludovic Courtès
2015-12-21 9:49 ` Taylan Ulrich Bayırlı/Kammer
2016-01-05 17:56 ` Taylan Ulrich Bayırlı/Kammer
2016-01-05 21:39 ` Ludovic Courtès
2016-01-05 22:32 ` Taylan Ulrich Bayırlı/Kammer
2016-01-07 17:01 ` Leo Famulari
2016-01-07 17:54 ` Alex Sassmannshausen
2016-01-07 18:10 ` Ludovic Courtès
2015-12-03 15:27 ` Mark H Weaver
2015-12-03 15:54 ` Taylan Ulrich Bayırlı/Kammer
2015-12-04 14:11 ` Ludovic Courtès
2015-11-06 16:12 ` Andy Wingo
2015-11-06 16:41 ` Taylan Ulrich Bayırlı/Kammer
2015-11-06 20:48 ` Ludovic Courtès
2015-11-09 7:41 ` Andy Wingo
2015-11-09 8:51 ` Taylan Ulrich Bayırlı/Kammer
2015-11-09 9:07 ` Andy Wingo
2015-11-09 9:50 ` Taylan Ulrich Bayırlı/Kammer
2015-11-09 10:49 ` Andy Wingo
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87611gdul8.fsf@gnu.org \
--to=ludo@gnu.org \
--cc=guix-devel@gnu.org \
--cc=taylanbayirli@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.