From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Jakob L. Kreuze" <zerodaysfordays.sdf.org@sdf.org>
Subject: bug#36813: 'lower-gexp' does not respect 'system' or 'target' keywords
Date: Fri, 26 Jul 2019 11:37:20 -0400
Message-ID: <ECEB864A-BE06-4BD0-BF9A-B153CE700308@sdf.org>
References: <87imrp3ddy.fsf@sdf.lonestar.org> <87ftmtqk84.fsf@gnu.org>
 <87muh0lvg1.fsf@sdf.lonestar.org> <87a7d0n7ck.fsf@gnu.org>
Mime-Version: 1.0
Content-Type: multipart/alternative;
 boundary="----V5YHWJ4QJR0RL3A3QPD6GYG5VIGVF1"
Content-Transfer-Encoding: 7bit
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:470:142:3::10]:50717)
 by lists.gnu.org with esmtp (Exim 4.86_2)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1hr2iN-0000Lm-VZ
 for bug-guix@gnu.org; Fri, 26 Jul 2019 12:05:05 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1hr2iM-0004k8-E8
 for bug-guix@gnu.org; Fri, 26 Jul 2019 12:05:03 -0400
Received: from debbugs.gnu.org ([209.51.188.43]:34428)
 by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
 (Exim 4.71) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
 id 1hr2iM-0004iD-A9
 for bug-guix@gnu.org; Fri, 26 Jul 2019 12:05:02 -0400
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1hr2iM-00051V-0k
 for bug-guix@gnu.org; Fri, 26 Jul 2019 12:05:02 -0400
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-Message-ID: <handler.36813.B36813.156415707419255@debbugs.gnu.org>
In-Reply-To: <87a7d0n7ck.fsf@gnu.org>
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
 <mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/bug-guix>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
 <mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: "bug-Guix" <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
To: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@gnu.org>, zerodaysfordays@sdf.lonestar.org
Cc: 36813@debbugs.gnu.org

------V5YHWJ4QJR0RL3A3QPD6GYG5VIGVF1
Content-Type: text/plain;
 charset=utf-8
Content-Transfer-Encoding: quoted-printable

Could you please try to reproduce using the example I provided? The derivat=
ion itself is handled appropriately, but its references are not=2E

On July 26, 2019 11:28:11 AM EDT, "Ludovic Court=C3=A8s" <ludo@gnu=2Eorg> =
wrote:
>zerodaysfordays@sdf=2Elonestar=2Eorg (Jakob L=2E Kreuze) skribis:
>
>> Changing it to the following:
>>
>> #+BEGIN_SRC scheme
>> (lower-gexp exp
>>             #:system "i686-linux"
>>             #:target "i686-unknown-linux-gnu"
>>             #:guile-for-build #f)
>> #+END_SRC
>>
>> The Guile used is still a 64-bit LSB executable=2E
>
>I can=E2=80=99t reproduce it on current =E2=80=98master=E2=80=99:
>
>--8<---------------cut here---------------start------------->8---
>scheme@(guile-user)> ,run-in-store (lower-gexp #~(+ 2 3)
>#:guile-for-build #f #:system "mips64el-linux")
>$6 =3D #<<lowered-gexp> sexp: (+ 2 3) inputs: () sources: () guile:
>#<<derivation-input> drv: #<derivation
>/gnu/store/jsnihqsz6nxwv88pr41i2y3403f959cf-guile-2=2E2=2E4=2Edrv =3D>
>/gnu/store/n2570pg8cahc8k9iqrg5qngyzf6j0xzr-guile-2=2E2=2E4-debug
>/gnu/store/j9a8dx25cj045yl5l32ajkkjf92ib3y1-guile-2=2E2=2E4 46e3230>
>sub-derivations: ("out")> load-path: () load-compiled-path: ()>
>scheme@(guile-user)> (derivation-system (derivation-input-derivation
>(lowered-gexp-guile $6)))
>$7 =3D "mips64el-linux"
>--8<---------------cut here---------------end--------------->8---
>
>Not even when cross-compiling (BTW, #:target probably doesn=E2=80=99t mak=
e
>sense
>above, since it=E2=80=99s cross-compiling from i686 to i686):
>
>--8<---------------cut here---------------start------------->8---
>scheme@(guile-user)> ,run-in-store (lower-gexp #~(+ 2 3)
>#:guile-for-build #f #:system "mips64el-linux" #:target "i586-pc-gnu")
>$8 =3D #<<lowered-gexp> sexp: (+ 2 3) inputs: () sources: () guile:
>#<<derivation-input> drv: #<derivation
>/gnu/store/jsnihqsz6nxwv88pr41i2y3403f959cf-guile-2=2E2=2E4=2Edrv =3D>
>/gnu/store/n2570pg8cahc8k9iqrg5qngyzf6j0xzr-guile-2=2E2=2E4-debug
>/gnu/store/j9a8dx25cj045yl5l32ajkkjf92ib3y1-guile-2=2E2=2E4 46e3230>
>sub-derivations: ("out")> load-path: () load-compiled-path: ()>
>scheme@(guile-user)> (derivation-system (derivation-input-derivation
>(lowered-gexp-guile $8)))
>$9 =3D "mips64el-linux"
>--8<---------------cut here---------------end--------------->8---
>
>Am I missing something?
>
>Thanks,
>Ludo=E2=80=99=2E

--=20
Sent from my Android device with K-9 Mail=2E Please excuse my brevity=2E
------V5YHWJ4QJR0RL3A3QPD6GYG5VIGVF1
Content-Type: text/html;
 charset=utf-8
Content-Transfer-Encoding: quoted-printable

<html><head></head><body>Could you please try to reproduce using the exampl=
e I provided? The derivation itself is handled appropriately, but its refer=
ences are not=2E<br><br><div class=3D"gmail_quote">On July 26, 2019 11:28:1=
1 AM EDT, "Ludovic Court=C3=A8s" &lt;ludo@gnu=2Eorg&gt; wrote:<blockquote c=
lass=3D"gmail_quote" style=3D"margin: 0pt 0pt 0pt 0=2E8ex; border-left: 1px=
 solid rgb(204, 204, 204); padding-left: 1ex;">
<pre class=3D"k9mail">zerodaysfordays@sdf=2Elonestar=2Eorg (Jakob L=2E Kre=
uze) skribis:<br><br><blockquote class=3D"gmail_quote" style=3D"margin: 0pt=
 0pt 1ex 0=2E8ex; border-left: 1px solid #729fcf; padding-left: 1ex;"> Chan=
ging it to the following:<br><br> #+BEGIN_SRC scheme<br> (lower-gexp exp<br=
>             #:system "i686-linux"<br>             #:target "i686-unknown-=
linux-gnu"<br>             #:guile-for-build #f)<br> #+END_SRC<br><br> The =
Guile used is still a 64-bit LSB executable=2E<br></blockquote><br>I can=E2=
=80=99t reproduce it on current =E2=80=98master=E2=80=99:<br><br>--8&lt;---=
------------cut here---------------start-------------&gt;8---<br>scheme@(gu=
ile-user)&gt; ,run-in-store (lower-gexp #~(+ 2 3) #:guile-for-build #f #:sy=
stem "mips64el-linux")<br>$6 =3D #&lt;&lt;lowered-gexp&gt; sexp: (+ 2 3) in=
puts: () sources: () guile: #&lt;&lt;derivation-input&gt; drv: #&lt;derivat=
ion /gnu/store/jsnihqsz6nxwv88pr41i2y3403f959cf-guile-2=2E2=2E4=2Edrv =3D&g=
t; /gnu/store/n2570pg8cahc8k9iqrg5qngyzf6j0xzr-guile-2=2E2=2E4-debug /gnu/s=
tore/j9a8dx25cj045yl5l32ajkkjf92ib3y1-guile-2=2E2=2E4 46e3230&gt; sub-deriv=
ations: ("out")&gt; load-path: () load-compiled-path: ()&gt;<br>scheme@(gui=
le-user)&gt; (derivation-system (derivation-input-derivation (lowered-gexp-=
guile $6)))<br>$7 =3D "mips64el-linux"<br>--8&lt;---------------cut here---=
------------end---------------&gt;8---<br><br>Not even when cross-compiling=
 (BTW, #:target probably doesn=E2=80=99t make sense<br>above, since it=E2=
=80=99s cross-compiling from i686 to i686):<br><br>--8&lt;---------------cu=
t here---------------start-------------&gt;8---<br>scheme@(guile-user)&gt; =
,run-in-store (lower-gexp #~(+ 2 3) #:guile-for-build #f #:system "mips64el=
-linux" #:target "i586-pc-gnu")<br>$8 =3D #&lt;&lt;lowered-gexp&gt; sexp: (=
+ 2 3) inputs: () sources: () guile: #&lt;&lt;derivation-input&gt; drv: #&l=
t;derivation /gnu/store/jsnihqsz6nxwv88pr41i2y3403f959cf-guile-2=2E2=2E4=2E=
drv =3D&gt; /gnu/store/n2570pg8cahc8k9iqrg5qngyzf6j0xzr-guile-2=2E2=2E4-deb=
ug /gnu/store/j9a8dx25cj045yl5l32ajkkjf92ib3y1-guile-2=2E2=2E4 46e3230&gt; =
sub-derivations: ("out")&gt; load-path: () load-compiled-path: ()&gt;<br>sc=
heme@(guile-user)&gt; (derivation-system (derivation-input-derivation (lowe=
red-gexp-guile $8)))<br>$9 =3D "mips64el-linux"<br>--8&lt;---------------cu=
t here---------------end---------------&gt;8---<br><br>Am I missing somethi=
ng?<br><br>Thanks,<br>Ludo=E2=80=99=2E<br><br></pre></blockquote></div><br>=
-- <br>Sent from my Android device with K-9 Mail=2E Please excuse my brevit=
y=2E</body></html>
------V5YHWJ4QJR0RL3A3QPD6GYG5VIGVF1--