From unknown Sun Jun 15 01:06:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#39997: High CPU load and no return value with 3.0.0 Resent-From: Roel Janssen Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Mon, 09 Mar 2020 12:14:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 39997 X-GNU-PR-Package: guile X-GNU-PR-Keywords: To: 39997@debbugs.gnu.org X-Debbugs-Original-To: bug-guile@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.15837560075909 (code B ref -1); Mon, 09 Mar 2020 12:14:02 +0000 Received: (at submit) by debbugs.gnu.org; 9 Mar 2020 12:13:27 +0000 Received: from localhost ([127.0.0.1]:49915 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jBHHj-0001XF-Li for submit@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 ) id 1jBHHh-0001X6-Pz for submit@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 ) id 1jBHHg-0006bv-Qr for bug-guile@gnu.org; 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 ) id 1jBHHg-0001CA-MY for bug-guile@gnu.org; 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 ) id 1jBHHg-0005Ya-6w for bug-guile@gnu.org; Mon, 09 Mar 2020 08:13:24 -0400 Message-ID: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@gnu.org> From: Roel Janssen 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-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" 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 From unknown Sun Jun 15 01:06:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#39997: High CPU load and no return value with 3.0.0 Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Wed, 11 Mar 2020 11:08:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 39997 X-GNU-PR-Package: guile X-GNU-PR-Keywords: To: Roel Janssen Cc: 39997@debbugs.gnu.org Received: via spool by 39997-submit@debbugs.gnu.org id=B39997.158392486429866 (code B ref 39997); Wed, 11 Mar 2020 11:08:02 +0000 Received: (at 39997) by debbugs.gnu.org; 11 Mar 2020 11:07:44 +0000 Received: from localhost ([127.0.0.1]:53663 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jBzDD-0007le-RD for submit@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 ) id 1jBzDC-0007lP-EF for 39997@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 ) id 1jBzD7-000858-CB for 39997@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 ) id 1jBzD5-00084A-Lu; Wed, 11 Mar 2020 07:07:36 -0400 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= References: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@gnu.org> Date: Wed, 11 Mar 2020 12:07:33 +0100 In-Reply-To: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@gnu.org> (Roel Janssen's message of "Mon, 09 Mar 2020 13:13:21 +0100") Message-ID: <87eetzm9oq.fsf@gnu.org> 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-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.7 (-) Hi, Roel Janssen 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: ;; . (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. From debbugs-submit-bounces@debbugs.gnu.org Wed Mar 11 07:16:00 2020 Received: (at control) by debbugs.gnu.org; 11 Mar 2020 11:16:00 +0000 Received: from localhost ([127.0.0.1]:53679 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jBzLE-0007yX-EX for submit@debbugs.gnu.org; Wed, 11 Mar 2020 07:16:00 -0400 Received: from eggs.gnu.org ([209.51.188.92]:40052) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jBzLB-0007yH-Qz for control@debbugs.gnu.org; Wed, 11 Mar 2020 07:15:58 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:58209) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1jBzL6-0007eM-ON for control@debbugs.gnu.org; Wed, 11 Mar 2020 07:15:52 -0400 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=37846 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1jBzL5-0006vB-DD for control@debbugs.gnu.org; Wed, 11 Mar 2020 07:15:52 -0400 Date: Wed, 11 Mar 2020 12:15:50 +0100 Message-Id: <87zhcnkuqh.fsf@gnu.org> To: control@debbugs.gnu.org From: =?utf-8?Q?Ludovic_Court=C3=A8s?= Subject: control message for bug #39251 MIME-version: 1.0 Content-type: text/plain; charset=utf-8 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: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.7 (-) merge 39251 39997 quit From unknown Sun Jun 15 01:06:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#39997: High CPU load and no return value with 3.0.0 Resent-From: Roel Janssen Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Wed, 11 Mar 2020 13:04:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 39997 X-GNU-PR-Package: guile X-GNU-PR-Keywords: To: Ludovic =?UTF-8?Q?Court=C3=A8s?= Cc: 39997@debbugs.gnu.org Received: via spool by 39997-submit@debbugs.gnu.org id=B39997.158393184115742 (code B ref 39997); Wed, 11 Mar 2020 13:04:01 +0000 Received: (at 39997) by debbugs.gnu.org; 11 Mar 2020 13:04:01 +0000 Received: from localhost ([127.0.0.1]:53752 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jC11k-00045q-Jv for submit@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 ) id 1jC11f-00045a-P6 for 39997@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 ) 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 ) id 1jC11Z-0000lv-Dr; Wed, 11 Mar 2020 09:03:49 -0400 Message-ID: From: Roel Janssen Date: Wed, 11 Mar 2020 14:03:47 +0100 In-Reply-To: <87eetzm9oq.fsf@gnu.org> References: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@gnu.org> <87eetzm9oq.fsf@gnu.org> 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-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.7 (-) On Wed, 2020-03-11 at 12:07 +0100, Ludovic Courtès wrote: > Hi, > > Roel Janssen 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: > ;; ;. > (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 From unknown Sun Jun 15 01:06:16 2025 X-Loop: help-debbugs@gnu.org Subject: bug#39997: High CPU load and no return value with 3.0.0 Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Wed, 11 Mar 2020 14:06:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 39997 X-GNU-PR-Package: guile X-GNU-PR-Keywords: To: Roel Janssen Cc: 39997@debbugs.gnu.org Received: via spool by 39997-submit@debbugs.gnu.org id=B39997.158393555522699 (code B ref 39997); Wed, 11 Mar 2020 14:06:01 +0000 Received: (at 39997) by debbugs.gnu.org; 11 Mar 2020 14:05:55 +0000 Received: from localhost ([127.0.0.1]:55259 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jC1zf-0005u3-Cz for submit@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 ) id 1jC1zd-0005to-Oi for 39997@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 ) id 1jC1zY-0005FL-MN for 39997@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 ) id 1jC1zU-0004pR-B2; Wed, 11 Mar 2020 10:05:48 -0400 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= References: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@gnu.org> <87eetzm9oq.fsf@gnu.org> 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=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: (Roel Janssen's message of "Wed, 11 Mar 2020 14:03:47 +0100") Message-ID: <8736afj8aw.fsf@gnu.org> 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-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.7 (-) Roel Janssen 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: >> ;; ;. >> (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. From debbugs-submit-bounces@debbugs.gnu.org Wed Mar 11 10:06:39 2020 Received: (at control) by debbugs.gnu.org; 11 Mar 2020 14:06:39 +0000 Received: from localhost ([127.0.0.1]:55268 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jC20M-0005vY-TY for submit@debbugs.gnu.org; Wed, 11 Mar 2020 10:06:39 -0400 Received: from eggs.gnu.org ([209.51.188.92]:53630) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jC20M-0005vN-0D for control@debbugs.gnu.org; Wed, 11 Mar 2020 10:06:38 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:60617) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1jC20G-0005Lp-UO for control@debbugs.gnu.org; Wed, 11 Mar 2020 10:06:32 -0400 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=37938 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1jC20E-0004tt-OM for control@debbugs.gnu.org; Wed, 11 Mar 2020 10:06:32 -0400 Date: Wed, 11 Mar 2020 15:06:29 +0100 Message-Id: <871rpzj89m.fsf@gnu.org> To: control@debbugs.gnu.org From: =?utf-8?Q?Ludovic_Court=C3=A8s?= Subject: control message for bug #39251 MIME-version: 1.0 Content-type: text/plain; charset=utf-8 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: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.7 (-) merge 39251 39997 quit From unknown Sun Jun 15 01:06:16 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.505 (Entity 5.505) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: Roel Janssen Subject: bug#39997: closed (Re: bug#39997: High CPU load and no return value with 3.0.0) Message-ID: References: <50786c56cd6b9632cdfb6e2c2f95e97c1758591d.camel@gnu.org> <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@gnu.org> X-Gnu-PR-Message: they-closed 39997 X-Gnu-PR-Package: guile Reply-To: 39997@debbugs.gnu.org Date: Wed, 11 Mar 2020 14:12:02 +0000 Content-Type: multipart/mixed; boundary="----------=_1583935922-23278-1" This is a multi-part message in MIME format... ------------=_1583935922-23278-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #39997: High CPU load and no return value with 3.0.0 which was filed against the guile package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 39997@debbugs.gnu.org. --=20 39997: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D39997 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1583935922-23278-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 39997-close) by debbugs.gnu.org; 11 Mar 2020 14:11:58 +0000 Received: from localhost ([127.0.0.1]:55272 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jC25W-00063C-JG for submit@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 ) id 1jC25V-000631-5L for 39997-close@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 ) 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 ) id 1jC25O-0005Lx-Nq; Wed, 11 Mar 2020 10:11:51 -0400 Message-ID: <50786c56cd6b9632cdfb6e2c2f95e97c1758591d.camel@gnu.org> Subject: Re: bug#39997: High CPU load and no return value with 3.0.0 From: Roel Janssen To: Ludovic =?ISO-8859-1?Q?Court=E8s?= Date: Wed, 11 Mar 2020 15:11:48 +0100 In-Reply-To: <8736afj8aw.fsf@gnu.org> References: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@gnu.org> <87eetzm9oq.fsf@gnu.org> <8736afj8aw.fsf@gnu.org> 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@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.7 (-) On Wed, 2020-03-11 at 15:05 +0100, Ludovic Courtès wrote: > Roel Janssen 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: > > > ;; ;;. > > > (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 ------------=_1583935922-23278-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 9 Mar 2020 12:13:27 +0000 Received: from localhost ([127.0.0.1]:49915 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jBHHj-0001XF-Li for submit@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 ) id 1jBHHh-0001X6-Pz for submit@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 ) id 1jBHHg-0006bv-Qr for bug-guile@gnu.org; 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 ) id 1jBHHg-0001CA-MY for bug-guile@gnu.org; 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 ) id 1jBHHg-0005Ya-6w for bug-guile@gnu.org; Mon, 09 Mar 2020 08:13:24 -0400 Message-ID: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@gnu.org> Subject: High CPU load and no return value with 3.0.0 From: Roel Janssen To: bug-guile@gnu.org 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@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" 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 ------------=_1583935922-23278-1-- From unknown Sun Jun 15 01:06:16 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.505 (Entity 5.505) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: Ludovic =?UTF-8?Q?Court=C3=A8s?= Subject: bug#39251: closed (Re: bug#39997: High CPU load and no return value with 3.0.0) Message-ID: References: <50786c56cd6b9632cdfb6e2c2f95e97c1758591d.camel@gnu.org> <87ftg6sdpj.fsf@inria.fr> X-Gnu-PR-Message: they-closed 39251 X-Gnu-PR-Package: guile Reply-To: 39251@debbugs.gnu.org Date: Wed, 11 Mar 2020 14:12:02 +0000 Content-Type: multipart/mixed; boundary="----------=_1583935922-23278-3" This is a multi-part message in MIME format... ------------=_1583935922-23278-3 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #39997: [3.0.0] At -O2, top-level definitions not evaluated in order? which was filed against the guile package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 39251@debbugs.gnu.org. --=20 39997: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D39997 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1583935922-23278-3 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 39997-close) by debbugs.gnu.org; 11 Mar 2020 14:11:58 +0000 Received: from localhost ([127.0.0.1]:55272 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jC25W-00063C-JG for submit@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 ) id 1jC25V-000631-5L for 39997-close@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 ) 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 ) id 1jC25O-0005Lx-Nq; Wed, 11 Mar 2020 10:11:51 -0400 Message-ID: <50786c56cd6b9632cdfb6e2c2f95e97c1758591d.camel@gnu.org> Subject: Re: bug#39997: High CPU load and no return value with 3.0.0 From: Roel Janssen To: Ludovic =?ISO-8859-1?Q?Court=E8s?= Date: Wed, 11 Mar 2020 15:11:48 +0100 In-Reply-To: <8736afj8aw.fsf@gnu.org> References: <1dc6670b0cd28fb5a899fdf7afe0624007747c81.camel@gnu.org> <87eetzm9oq.fsf@gnu.org> <8736afj8aw.fsf@gnu.org> 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@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.7 (-) On Wed, 2020-03-11 at 15:05 +0100, Ludovic Courtès wrote: > Roel Janssen 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: > > > ;; ;;. > > > (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 ------------=_1583935922-23278-3 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 23 Jan 2020 09:51:29 +0000 Received: from localhost ([127.0.0.1]:51833 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iuZ96-0008Cd-Nm for submit@debbugs.gnu.org; Thu, 23 Jan 2020 04:51:28 -0500 Received: from lists.gnu.org ([209.51.188.17]:41192) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iuZ94-0008CV-PH for submit@debbugs.gnu.org; Thu, 23 Jan 2020 04:51:27 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]:60991) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iuZ93-0000cE-Ld for bug-Guix@gnu.org; Thu, 23 Jan 2020 04:51:26 -0500 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-2.9 required=5.0 tests=ALL_TRUSTED,BAYES_00 autolearn=disabled version=3.3.2 Received: from fencepost.gnu.org ([2001:470:142:3::e]:56008) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1iuZ93-0007dy-IJ for bug-Guix@gnu.org; Thu, 23 Jan 2020 04:51:25 -0500 Received: from [2001:660:6102:320:e120:2c8f:8909:cdfe] (port=36216 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1iuZ93-0001Le-5g for bug-Guix@gnu.org; Thu, 23 Jan 2020 04:51:25 -0500 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: bug-Guix@gnu.org Subject: [3.0.0] At -O2, top-level definitions not evaluated in order? X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 4 =?utf-8?Q?Pluvi=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: Thu, 23 Jan 2020 10:51:20 +0100 Message-ID: <87ftg6sdpj.fsf@inria.fr> 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: -2.3 (--) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Hello! Guile-Lib=E2=80=99s md5.scm does something like: --8<---------------cut here---------------start------------->8--- (define f-ash ash) (define (ash x n) (modulo (f-ash x n) #x100000000)) --8<---------------cut here---------------end--------------->8--- At -O0 and -O1, this has the desired effect: =E2=80=98f-ash=E2=80=99 is an = alias for (@ (guile) ash). However, at -O2 and above, =E2=80=98f-ash=E2=80=99 is eq? to the =E2=80=98a= sh=E2=80=99 defined right below it. This seems to contradict R5RS (info "(r5rs) Top level definitions"). Thoughts? Ludo=E2=80=99. ------------=_1583935922-23278-3--