GNU bug report logs - #39997
High CPU load and no return value with 3.0.0

Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.
Package: guile; Reported by: Roel Janssen <roel@HIDDEN>; merged with #39251; dated Mon, 9 Mar 2020 12:14:02 UTC; Maintainer for guile is bug-guile@HIDDEN.
Did not alter fixed versions and reopened. Request was from Debbugs Internal Request <help-debbugs@HIDDEN> to internal_control <at> debbugs.gnu.org. Full text available.

Message received at 39997-close <at> debbugs.gnu.org:


Received: (at 39997-close) by debbugs.gnu.org; 11 Mar 2020 14:11:58 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Wed Mar 11 10:11:58 2020
Received: from localhost ([127.0.0.1]:55272 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1jC25W-00063C-JG
	for submit <at> debbugs.gnu.org; Wed, 11 Mar 2020 10:11:58 -0400
Received: from eggs.gnu.org ([209.51.188.92]:54611)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <roel@HIDDEN>) id 1jC25V-000631-5L
 for 39997-close <at> debbugs.gnu.org; Wed, 11 Mar 2020 10:11:57 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:60680)
 by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <roel@HIDDEN>)
 id 1jC25P-0002Em-UB; Wed, 11 Mar 2020 10:11:52 -0400
Received: from ip-80-113-14-101.ip.prioritytelecom.net ([80.113.14.101]:62560
 helo=redstone)
 by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
 (Exim 4.82) (envelope-from <roel@HIDDEN>)
 id 1jC25O-0005Lx-Nq; Wed, 11 Mar 2020 10:11:51 -0400
Message-ID: <50786c56cd6b9632cdfb6e2c2f95e97c1758591d.camel@HIDDEN>
Subject: Re: bug#39997: High CPU load and no return value with 3.0.0
From: Roel Janssen <roel@HIDDEN>
To: Ludovic =?ISO-8859-1?Q?Court=E8s?= <ludo@HIDDEN>
Date: Wed, 11 Mar 2020 15:11:48 +0100
In-Reply-To: <8736afj8aw.fsf@HIDDEN>
References: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@HIDDEN>
 <87eetzm9oq.fsf@HIDDEN>
 <a42e8bfb36ecf5b3a240f8324af41609f20d34ed.camel@HIDDEN>
 <8736afj8aw.fsf@HIDDEN>
Content-Type: text/plain; charset="UTF-8"
User-Agent: Evolution 3.34.4 (3.34.4-1.fc31) 
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Spam-Score: -0.7 (/)
X-Debbugs-Envelope-To: 39997-close
Cc: 39997-close <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.7 (-)

On Wed, 2020-03-11 at 15:05 +0100, Ludovic Courtès wrote:
> Roel Janssen <roel@HIDDEN> skribis:
> 
> > On Wed, 2020-03-11 at 12:07 +0100, Ludovic Courtès wrote:
> 
> [...]
> 
> > > The Guix package has this patch:
> > > 
> > >         '(begin
> > >            ;; Work around miscompilation on Guile 3.0.0 at -O2:
> > >            ;; <https://bugs.gnu.org/39251>;;.
> > >            (substitute* "src/md5.scm"
> > >              (("\\(define f-ash ash\\)")
> > >               "(define f-ash (@ (guile) ash))\n")
> > >              (("\\(define f-add \\+\\)")
> > >               "(define f-add (@ (guile) +))\n"))
> > >            #t)
> > > 
> > > It’s very likely that you’re hitting this problem.
> > 
> > Yes!  Thanks for sharing this fix.
> > I applied the same changes to my code and now I don't encounter the
> > bug
> > anymore.
> > 
> > I tested the patched code with both guile-2.2 and guile-3.0.  Do
> > you
> > know whether this will also work with guile-2.0?  (I'd like to keep
> > things compatible with guile-2.0 for a few more years).
> 
> Yes, the change above also works for Guile 2.0.

Thanks for the confirmation.  I'm closing this bug, as it is basically
a duplicate of #39251.

Kind regards,
Roel Janssen
Notification sent to Ludovic Courtès <ludo@HIDDEN>:
bug acknowledged by developer. Full text available.
Reply sent to Roel Janssen <roel@HIDDEN>:
You have taken responsibility. Full text available.

Message received at 39997-close <at> debbugs.gnu.org:


Received: (at 39997-close) by debbugs.gnu.org; 11 Mar 2020 14:11:58 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Wed Mar 11 10:11:58 2020
Received: from localhost ([127.0.0.1]:55272 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1jC25W-00063C-JG
	for submit <at> debbugs.gnu.org; Wed, 11 Mar 2020 10:11:58 -0400
Received: from eggs.gnu.org ([209.51.188.92]:54611)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <roel@HIDDEN>) id 1jC25V-000631-5L
 for 39997-close <at> debbugs.gnu.org; Wed, 11 Mar 2020 10:11:57 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:60680)
 by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <roel@HIDDEN>)
 id 1jC25P-0002Em-UB; Wed, 11 Mar 2020 10:11:52 -0400
Received: from ip-80-113-14-101.ip.prioritytelecom.net ([80.113.14.101]:62560
 helo=redstone)
 by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
 (Exim 4.82) (envelope-from <roel@HIDDEN>)
 id 1jC25O-0005Lx-Nq; Wed, 11 Mar 2020 10:11:51 -0400
Message-ID: <50786c56cd6b9632cdfb6e2c2f95e97c1758591d.camel@HIDDEN>
Subject: Re: bug#39997: High CPU load and no return value with 3.0.0
From: Roel Janssen <roel@HIDDEN>
To: Ludovic =?ISO-8859-1?Q?Court=E8s?= <ludo@HIDDEN>
Date: Wed, 11 Mar 2020 15:11:48 +0100
In-Reply-To: <8736afj8aw.fsf@HIDDEN>
References: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@HIDDEN>
 <87eetzm9oq.fsf@HIDDEN>
 <a42e8bfb36ecf5b3a240f8324af41609f20d34ed.camel@HIDDEN>
 <8736afj8aw.fsf@HIDDEN>
Content-Type: text/plain; charset="UTF-8"
User-Agent: Evolution 3.34.4 (3.34.4-1.fc31) 
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Spam-Score: -0.7 (/)
X-Debbugs-Envelope-To: 39997-close
Cc: 39997-close <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.7 (-)

On Wed, 2020-03-11 at 15:05 +0100, Ludovic Courtès wrote:
> Roel Janssen <roel@HIDDEN> skribis:
> 
> > On Wed, 2020-03-11 at 12:07 +0100, Ludovic Courtès wrote:
> 
> [...]
> 
> > > The Guix package has this patch:
> > > 
> > >         '(begin
> > >            ;; Work around miscompilation on Guile 3.0.0 at -O2:
> > >            ;; <https://bugs.gnu.org/39251>;;.
> > >            (substitute* "src/md5.scm"
> > >              (("\\(define f-ash ash\\)")
> > >               "(define f-ash (@ (guile) ash))\n")
> > >              (("\\(define f-add \\+\\)")
> > >               "(define f-add (@ (guile) +))\n"))
> > >            #t)
> > > 
> > > It’s very likely that you’re hitting this problem.
> > 
> > Yes!  Thanks for sharing this fix.
> > I applied the same changes to my code and now I don't encounter the
> > bug
> > anymore.
> > 
> > I tested the patched code with both guile-2.2 and guile-3.0.  Do
> > you
> > know whether this will also work with guile-2.0?  (I'd like to keep
> > things compatible with guile-2.0 for a few more years).
> 
> Yes, the change above also works for Guile 2.0.

Thanks for the confirmation.  I'm closing this bug, as it is basically
a duplicate of #39251.

Kind regards,
Roel Janssen
Notification sent to Roel Janssen <roel@HIDDEN>:
bug acknowledged by developer. Full text available.
Reply sent to Roel Janssen <roel@HIDDEN>:
You have taken responsibility. Full text available.
Merged 39251 39997. Request was from Ludovic Courtès <ludo@HIDDEN> to control <at> debbugs.gnu.org. Full text available.

Message received at 39997 <at> debbugs.gnu.org:


Received: (at 39997) by debbugs.gnu.org; 11 Mar 2020 14:05:55 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Wed Mar 11 10:05:55 2020
Received: from localhost ([127.0.0.1]:55259 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1jC1zf-0005u3-Cz
	for submit <at> debbugs.gnu.org; Wed, 11 Mar 2020 10:05:55 -0400
Received: from eggs.gnu.org ([209.51.188.92]:53512)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <ludo@HIDDEN>) id 1jC1zd-0005to-Oi
 for 39997 <at> debbugs.gnu.org; Wed, 11 Mar 2020 10:05:54 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:60594)
 by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <ludo@HIDDEN>)
 id 1jC1zY-0005FL-MN
 for 39997 <at> debbugs.gnu.org; Wed, 11 Mar 2020 10:05:48 -0400
Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=37934 helo=ribbon)
 by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
 (Exim 4.82) (envelope-from <ludo@HIDDEN>)
 id 1jC1zU-0004pR-B2; Wed, 11 Mar 2020 10:05:48 -0400
From: =?utf-8?Q?Ludovic_Court=C3=A8s?= <ludo@HIDDEN>
To: Roel Janssen <roel@HIDDEN>
Subject: Re: bug#39997: High CPU load and no return value with 3.0.0
References: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@HIDDEN>
 <87eetzm9oq.fsf@HIDDEN>
 <a42e8bfb36ecf5b3a240f8324af41609f20d34ed.camel@HIDDEN>
X-URL: http://www.fdn.fr/~lcourtes/
X-Revolutionary-Date: 22 =?utf-8?Q?Vent=C3=B4se?= an 228 de la =?utf-8?Q?R?=
 =?utf-8?Q?=C3=A9volution?=
X-PGP-Key-ID: 0x090B11993D9AEBB5
X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc
X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4  0CFB 090B 1199 3D9A EBB5
X-OS: x86_64-pc-linux-gnu
Date: Wed, 11 Mar 2020 15:05:43 +0100
In-Reply-To: <a42e8bfb36ecf5b3a240f8324af41609f20d34ed.camel@HIDDEN> (Roel
 Janssen's message of "Wed, 11 Mar 2020 14:03:47 +0100")
Message-ID: <8736afj8aw.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Spam-Score: -0.7 (/)
X-Debbugs-Envelope-To: 39997
Cc: 39997 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.7 (-)

Roel Janssen <roel@HIDDEN> skribis:

> On Wed, 2020-03-11 at 12:07 +0100, Ludovic Court=C3=A8s wrote:

[...]

>> The Guix package has this patch:
>>=20
>>         '(begin
>>            ;; Work around miscompilation on Guile 3.0.0 at -O2:
>>            ;; <https://bugs.gnu.org/39251>;.
>>            (substitute* "src/md5.scm"
>>              (("\\(define f-ash ash\\)")
>>               "(define f-ash (@ (guile) ash))\n")
>>              (("\\(define f-add \\+\\)")
>>               "(define f-add (@ (guile) +))\n"))
>>            #t)
>>=20
>> It=E2=80=99s very likely that you=E2=80=99re hitting this problem.
>
> Yes!  Thanks for sharing this fix.
> I applied the same changes to my code and now I don't encounter the bug
> anymore.
>
> I tested the patched code with both guile-2.2 and guile-3.0.  Do you
> know whether this will also work with guile-2.0?  (I'd like to keep
> things compatible with guile-2.0 for a few more years).

Yes, the change above also works for Guile 2.0.

Ludo=E2=80=99.
Information forwarded to bug-guile@HIDDEN:
bug#39997; Package guile. Full text available.

Message received at 39997 <at> debbugs.gnu.org:


Received: (at 39997) by debbugs.gnu.org; 11 Mar 2020 13:04:01 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Wed Mar 11 09:04:00 2020
Received: from localhost ([127.0.0.1]:53752 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1jC11k-00045q-Jv
	for submit <at> debbugs.gnu.org; Wed, 11 Mar 2020 09:04:00 -0400
Received: from eggs.gnu.org ([209.51.188.92]:38020)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <roel@HIDDEN>) id 1jC11f-00045a-P6
 for 39997 <at> debbugs.gnu.org; Wed, 11 Mar 2020 09:03:57 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:59683)
 by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <roel@HIDDEN>)
 id 1jC11a-0001mQ-5v; Wed, 11 Mar 2020 09:03:50 -0400
Received: from ip-80-113-14-101.ip.prioritytelecom.net ([80.113.14.101]:30955
 helo=redstone)
 by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
 (Exim 4.82) (envelope-from <roel@HIDDEN>)
 id 1jC11Z-0000lv-Dr; Wed, 11 Mar 2020 09:03:49 -0400
Message-ID: <a42e8bfb36ecf5b3a240f8324af41609f20d34ed.camel@HIDDEN>
Subject: Re: bug#39997: High CPU load and no return value with 3.0.0
From: Roel Janssen <roel@HIDDEN>
To: Ludovic =?ISO-8859-1?Q?Court=E8s?= <ludo@HIDDEN>
Date: Wed, 11 Mar 2020 14:03:47 +0100
In-Reply-To: <87eetzm9oq.fsf@HIDDEN>
References: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@HIDDEN>
 <87eetzm9oq.fsf@HIDDEN>
Content-Type: text/plain; charset="UTF-8"
User-Agent: Evolution 3.34.4 (3.34.4-1.fc31) 
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Spam-Score: -0.7 (/)
X-Debbugs-Envelope-To: 39997
Cc: 39997 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.7 (-)

On Wed, 2020-03-11 at 12:07 +0100, Ludovic Courtès wrote:
> Hi,
> 
> Roel Janssen <roel@HIDDEN> skribis:
> 
> > When I use the "md5" module from guile-lib (release 0.2.6.1)
> > together
> > with the following snippet in Guile 3.0.0, it never returns, while
> > on
> > Guile 2.2.6, it returns the MD5 sum of the input string:
> > ---
> > (use-modules (md5))
> > 
> > (define (md5-from-string input)
> >   (call-with-input-string input md5))
> > 
> > (define (random-ascii length)
> >   "Returns a random string of ASCII characters of length LENGTH."
> >   (list->string
> >    (map (lambda _ (integer->char (+ (random 95) 32)))
> >         (iota length))))
> > 
> > (display
> >  (md5-from-string
> >   (random-ascii 32)))
> > ---
> > 
> > Could you point me in the right direction for finding the problem?
> 
> The Guix package has this patch:
> 
>         '(begin
>            ;; Work around miscompilation on Guile 3.0.0 at -O2:
>            ;; <https://bugs.gnu.org/39251>;.
>            (substitute* "src/md5.scm"
>              (("\\(define f-ash ash\\)")
>               "(define f-ash (@ (guile) ash))\n")
>              (("\\(define f-add \\+\\)")
>               "(define f-add (@ (guile) +))\n"))
>            #t)
> 
> It’s very likely that you’re hitting this problem.

Yes!  Thanks for sharing this fix.
I applied the same changes to my code and now I don't encounter the bug
anymore.

I tested the patched code with both guile-2.2 and guile-3.0.  Do you
know whether this will also work with guile-2.0?  (I'd like to keep
things compatible with guile-2.0 for a few more years).

Kind regards,
Roel Janssen
Information forwarded to bug-guile@HIDDEN:
bug#39997; Package guile. Full text available.
Merged 39251 39997. Request was from Ludovic Courtès <ludo@HIDDEN> to control <at> debbugs.gnu.org. Full text available.

Message received at 39997 <at> debbugs.gnu.org:


Received: (at 39997) by debbugs.gnu.org; 11 Mar 2020 11:07:44 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Wed Mar 11 07:07:44 2020
Received: from localhost ([127.0.0.1]:53663 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1jBzDD-0007le-RD
	for submit <at> debbugs.gnu.org; Wed, 11 Mar 2020 07:07:44 -0400
Received: from eggs.gnu.org ([209.51.188.92]:38071)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <ludo@HIDDEN>) id 1jBzDC-0007lP-EF
 for 39997 <at> debbugs.gnu.org; Wed, 11 Mar 2020 07:07:42 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:58098)
 by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <ludo@HIDDEN>)
 id 1jBzD7-000858-CB
 for 39997 <at> debbugs.gnu.org; Wed, 11 Mar 2020 07:07:37 -0400
Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=37814 helo=ribbon)
 by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
 (Exim 4.82) (envelope-from <ludo@HIDDEN>)
 id 1jBzD5-00084A-Lu; Wed, 11 Mar 2020 07:07:36 -0400
From: =?utf-8?Q?Ludovic_Court=C3=A8s?= <ludo@HIDDEN>
To: Roel Janssen <roel@HIDDEN>
Subject: Re: bug#39997: High CPU load and no return value with 3.0.0
References: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@HIDDEN>
Date: Wed, 11 Mar 2020 12:07:33 +0100
In-Reply-To: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@HIDDEN> (Roel
 Janssen's message of "Mon, 09 Mar 2020 13:13:21 +0100")
Message-ID: <87eetzm9oq.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Spam-Score: -0.7 (/)
X-Debbugs-Envelope-To: 39997
Cc: 39997 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.7 (-)

Hi,

Roel Janssen <roel@HIDDEN> skribis:

> When I use the "md5" module from guile-lib (release 0.2.6.1) together
> with the following snippet in Guile 3.0.0, it never returns, while on
> Guile 2.2.6, it returns the MD5 sum of the input string:
> ---
> (use-modules (md5))
>
> (define (md5-from-string input)
>   (call-with-input-string input md5))
>
> (define (random-ascii length)
>   "Returns a random string of ASCII characters of length LENGTH."
>   (list->string
>    (map (lambda _ (integer->char (+ (random 95) 32)))
>         (iota length))))
>
> (display
>  (md5-from-string
>   (random-ascii 32)))
> ---
>
> Could you point me in the right direction for finding the problem?

The Guix package has this patch:

        '(begin
           ;; Work around miscompilation on Guile 3.0.0 at -O2:
           ;; <https://bugs.gnu.org/39251>.
           (substitute* "src/md5.scm"
             (("\\(define f-ash ash\\)")
              "(define f-ash (@ (guile) ash))\n")
             (("\\(define f-add \\+\\)")
              "(define f-add (@ (guile) +))\n"))
           #t)

It=E2=80=99s very likely that you=E2=80=99re hitting this problem.

HTH!

Ludo=E2=80=99.
Information forwarded to bug-guile@HIDDEN:
bug#39997; Package guile. Full text available.

Message received at submit <at> debbugs.gnu.org:


Received: (at submit) by debbugs.gnu.org; 9 Mar 2020 12:13:27 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Mon Mar 09 08:13:27 2020
Received: from localhost ([127.0.0.1]:49915 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1jBHHj-0001XF-Li
	for submit <at> debbugs.gnu.org; Mon, 09 Mar 2020 08:13:27 -0400
Received: from lists.gnu.org ([209.51.188.17]:53294)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <roel@HIDDEN>) id 1jBHHh-0001X6-Pz
 for submit <at> debbugs.gnu.org; Mon, 09 Mar 2020 08:13:26 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10]:55843)
 by lists.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <roel@HIDDEN>) id 1jBHHg-0006bv-Qr
 for bug-guile@HIDDEN; Mon, 09 Mar 2020 08:13:25 -0400
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org
X-Spam-Level: 
X-Spam-Status: No, score=-1.0 required=5.0 tests=ALL_TRUSTED,BAYES_40
 autolearn=disabled version=3.3.2
Received: from fencepost.gnu.org ([2001:470:142:3::e]:41249)
 by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <roel@HIDDEN>)
 id 1jBHHg-0001CA-MY
 for bug-guile@HIDDEN; Mon, 09 Mar 2020 08:13:24 -0400
Received: from ip-80-113-14-101.ip.prioritytelecom.net ([80.113.14.101]:3101
 helo=redstone)
 by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
 (Exim 4.82) (envelope-from <roel@HIDDEN>) id 1jBHHg-0005Ya-6w
 for bug-guile@HIDDEN; Mon, 09 Mar 2020 08:13:24 -0400
Message-ID: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@HIDDEN>
Subject: High CPU load and no return value with 3.0.0
From: Roel Janssen <roel@HIDDEN>
To: bug-guile@HIDDEN
Date: Mon, 09 Mar 2020 13:13:21 +0100
Content-Type: text/plain; charset="UTF-8"
User-Agent: Evolution 3.34.4 (3.34.4-1.fc31) 
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Spam-Score: -0.7 (/)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.7 (-)

Dear Guile hackers,

When I use the "md5" module from guile-lib (release 0.2.6.1) together
with the following snippet in Guile 3.0.0, it never returns, while on
Guile 2.2.6, it returns the MD5 sum of the input string:
---
(use-modules (md5))

(define (md5-from-string input)
  (call-with-input-string input md5))

(define (random-ascii length)
  "Returns a random string of ASCII characters of length LENGTH."
  (list->string
   (map (lambda _ (integer->char (+ (random 95) 32)))
        (iota length))))

(display
 (md5-from-string
  (random-ascii 32)))
---

Could you point me in the right direction for finding the problem?

This could be completely off-topic:
I also noticed that the function "read-string!/partial" (used by the
md5 module) no longer appears in the manual since the Guile 2.2.  Is
the usage of this function considered deprecated?

Kind regards,
Roel Janssen
Acknowledgement sent to Roel Janssen <roel@HIDDEN>:
New bug report received and forwarded. Copy sent to bug-guile@HIDDEN. Full text available.
Report forwarded to bug-guile@HIDDEN:
bug#39997; Package guile. Full text available.
Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.
Last modified: Wed, 11 Mar 2020 20:30:02 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.