From unknown Sat Jun 14 19:45:00 2025 X-Loop: help-debbugs@gnu.org Subject: bug#43845: toplevel definition in module: another compiler optimization bug Resent-From: Jan Nieuwenhuizen Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Wed, 07 Oct 2020 12:09:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 43845 X-GNU-PR-Package: guile X-GNU-PR-Keywords: To: 43845@debbugs.gnu.org X-Debbugs-Original-To: bug-guile@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.160207250628419 (code B ref -1); Wed, 07 Oct 2020 12:09:01 +0000 Received: (at submit) by debbugs.gnu.org; 7 Oct 2020 12:08:26 +0000 Received: from localhost ([127.0.0.1]:55494 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kQ8F7-0007OJ-HS for submit@debbugs.gnu.org; Wed, 07 Oct 2020 08:08:25 -0400 Received: from lists.gnu.org ([209.51.188.17]:35684) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kQ8F6-0007OC-BP for submit@debbugs.gnu.org; Wed, 07 Oct 2020 08:08:24 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:38462) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kQ8F2-0007QM-0E for bug-guile@gnu.org; Wed, 07 Oct 2020 08:08:24 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:43619) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kQ8F0-00034b-Tz; Wed, 07 Oct 2020 08:08:19 -0400 Received: from [2001:980:1b4f:1:42d2:832d:bb59:862] (port=41750 helo=dundal.janneke.lilypond.org) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1kQ8Ez-0002XK-Vj; Wed, 07 Oct 2020 08:08:18 -0400 From: Jan Nieuwenhuizen Organization: AvatarAcademy.nl X-Url: http://AvatarAcademy.nl Date: Wed, 07 Oct 2020 14:08:15 +0200 Message-ID: <878scifdcg.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Spam-Score: -2.3 (--) 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 (---) --=-=-= Content-Type: text/plain Hi! This morning I found another bug while porting Mes to Guile-3. It looks similar to #43831; compilation with -O2 shows wrong behaviour. Also, this works on Guile-2.2. To reproduce: --8<---------------cut here---------------start------------->8--- 14:02:54 janneke@dundal:~/tmp/bug2 [env] $ guile --no-auto-compile -L . script.scm dumping0: foo 14:03:06 janneke@dundal:~/tmp/bug2 [env] $ guild compile -O1 -o mescc.go mescc.scm wrote `mescc.go' 14:03:33 janneke@dundal:~/tmp/bug2 [env] $ guile --no-auto-compile -L . -C . script.scm dumping0: foo 14:03:42 janneke@dundal:~/tmp/bug2 [env] $ guild compile -O2 -o mescc.go mescc.scm wrote `mescc.go' 14:03:49 janneke@dundal:~/tmp/bug2 [env] $ guile --no-auto-compile -L . -C . script.scm dumping0: foo Backtrace: 1 (primitive-load "/home/janneke/tmp/bug2/script.scm") In mescc.scm: 27:4 0 (with-output-to-file _ #) mescc.scm:27:4: In procedure with-output-to-file: Throw to key `looping' with args `()'. [1]14:03:52 janneke@dundal:~/tmp/bug2 [env] $ --8<---------------cut here---------------end--------------->8--- Greetings, Janneke --=-=-= Content-Type: application/octet-stream Content-Disposition: attachment; filename=script.scm Content-Transfer-Encoding: base64 Ozs7IEdOVSBNZXMgLS0tIE1heHdlbGwgRXF1YXRpb25zIG9mIFNvZnR3YXJlCjs7OyBDb3B5cmln aHQgwqkgMjAxNiwyMDE3LDIwMTgsMjAxOSBKYW4gKGphbm5la2UpIE5pZXV3ZW5odWl6ZW4gPGph bm5la2VAZ251Lm9yZz4KOzs7Cjs7OyBUaGlzIGZpbGUgaXMgcGFydCBvZiBHTlUgTWVzLgo7OzsK Ozs7IEdOVSBNZXMgaXMgZnJlZSBzb2Z0d2FyZTsgeW91IGNhbiByZWRpc3RyaWJ1dGUgaXQgYW5k L29yIG1vZGlmeSBpdAo7OzsgdW5kZXIgdGhlIHRlcm1zIG9mIHRoZSBHTlUgR2VuZXJhbCBQdWJs aWMgTGljZW5zZSBhcyBwdWJsaXNoZWQgYnkKOzs7IHRoZSBGcmVlIFNvZnR3YXJlIEZvdW5kYXRp b247IGVpdGhlciB2ZXJzaW9uIDMgb2YgdGhlIExpY2Vuc2UsIG9yIChhdAo7OzsgeW91ciBvcHRp b24pIGFueSBsYXRlciB2ZXJzaW9uLgo7OzsKOzs7IEdOVSBNZXMgaXMgZGlzdHJpYnV0ZWQgaW4g dGhlIGhvcGUgdGhhdCBpdCB3aWxsIGJlIHVzZWZ1bCwgYnV0Cjs7OyBXSVRIT1VUIEFOWSBXQVJS QU5UWTsgd2l0aG91dCBldmVuIHRoZSBpbXBsaWVkIHdhcnJhbnR5IG9mCjs7OyBNRVJDSEFOVEFC SUxJVFkgb3IgRklUTkVTUyBGT1IgQSBQQVJUSUNVTEFSIFBVUlBPU0UuICBTZWUgdGhlCjs7OyBH TlUgR2VuZXJhbCBQdWJsaWMgTGljZW5zZSBmb3IgbW9yZSBkZXRhaWxzLgo7OzsKOzs7IFlvdSBz aG91bGQgaGF2ZSByZWNlaXZlZCBhIGNvcHkgb2YgdGhlIEdOVSBHZW5lcmFsIFB1YmxpYyBMaWNl bnNlCjs7OyBhbG9uZyB3aXRoIEdOVSBNZXMuICBJZiBub3QsIHNlZSA8aHR0cDovL3d3dy5nbnUu b3JnL2xpY2Vuc2VzLz4uCgoodXNlLW1vZHVsZXMgKG1lc2NjKSkKKG1lc2NjOmNvbXBpbGUpCg== --=-=-= Content-Type: application/octet-stream Content-Disposition: attachment; filename=mescc.scm Content-Transfer-Encoding: base64 Ozs7IEdOVSBNZXMgLS0tIE1heHdlbGwgRXF1YXRpb25zIG9mIFNvZnR3YXJlCjs7OyBDb3B5cmln aHQgwqkgMjAxNiwyMDE3LDIwMTgsMjAxOSwyMDIwIEphbiAoamFubmVrZSkgTmlldXdlbmh1aXpl biA8amFubmVrZUBnbnUub3JnPgo7OzsKOzs7IFRoaXMgZmlsZSBpcyBwYXJ0IG9mIEdOVSBNZXMu Cjs7Owo7OzsgR05VIE1lcyBpcyBmcmVlIHNvZnR3YXJlOyB5b3UgY2FuIHJlZGlzdHJpYnV0ZSBp dCBhbmQvb3IgbW9kaWZ5IGl0Cjs7OyB1bmRlciB0aGUgdGVybXMgb2YgdGhlIEdOVSBHZW5lcmFs IFB1YmxpYyBMaWNlbnNlIGFzIHB1Ymxpc2hlZCBieQo7OzsgdGhlIEZyZWUgU29mdHdhcmUgRm91 bmRhdGlvbjsgZWl0aGVyIHZlcnNpb24gMyBvZiB0aGUgTGljZW5zZSwgb3IgKGF0Cjs7OyB5b3Vy IG9wdGlvbikgYW55IGxhdGVyIHZlcnNpb24uCjs7Owo7OzsgR05VIE1lcyBpcyBkaXN0cmlidXRl ZCBpbiB0aGUgaG9wZSB0aGF0IGl0IHdpbGwgYmUgdXNlZnVsLCBidXQKOzs7IFdJVEhPVVQgQU5Z IFdBUlJBTlRZOyB3aXRob3V0IGV2ZW4gdGhlIGltcGxpZWQgd2FycmFudHkgb2YKOzs7IE1FUkNI QU5UQUJJTElUWSBvciBGSVRORVNTIEZPUiBBIFBBUlRJQ1VMQVIgUFVSUE9TRS4gIFNlZSB0aGUK Ozs7IEdOVSBHZW5lcmFsIFB1YmxpYyBMaWNlbnNlIGZvciBtb3JlIGRldGFpbHMuCjs7Owo7Ozsg WW91IHNob3VsZCBoYXZlIHJlY2VpdmVkIGEgY29weSBvZiB0aGUgR05VIEdlbmVyYWwgUHVibGlj IExpY2Vuc2UKOzs7IGFsb25nIHdpdGggR05VIE1lcy4gIElmIG5vdCwgc2VlIDxodHRwOi8vd3d3 LmdudS5vcmcvbGljZW5zZXMvPi4KCihkZWZpbmUtbW9kdWxlIChtZXNjYykKICAjOmV4cG9ydCAo bWVzY2M6Y29tcGlsZSkpCgooZGVmaW5lIHNlZW4/ICNmKSA7IEZvciBmcmllbmxkaWVyIGRlYnVn Z2luZwoKKGRlZmluZSBHVUlMRS13aXRoLW91dHB1dC10by1maWxlIHdpdGgtb3V0cHV0LXRvLWZp bGUpCihkZWZpbmUgKHdpdGgtb3V0cHV0LXRvLWZpbGUgZmlsZS1uYW1lIHRodW5rKQogICh3aGVu IHNlZW4/CiAgICAodGhyb3cgJ2xvb3BpbmcpKQogIChzZXQhIHNlZW4/ICN0KQogIChpZiAoZXF1 YWw/IGZpbGUtbmFtZSAiLSIpICh0aHVuaykKICAgICAgKEdVSUxFLXdpdGgtb3V0cHV0LXRvLWZp bGUgZmlsZS1uYW1lIHRodW5rKSkpCgooZGVmaW5lIChtZXNjYzpjb21waWxlKQogICAgKGZvcm1h dCAoY3VycmVudC1lcnJvci1wb3J0KSAiZHVtcGluZzA6IH5hXG4iICJmb28iKQogICAgKHdpdGgt b3V0cHV0LXRvLWZpbGUgImZvbyIKICAgICAgKGxhbWJkYSBfIChkaXNwbGF5ICJCT09cbiIpKSkp Cg== --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable --=20 Jan Nieuwenhuizen | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar=C2=AE http://AvatarAcademy.com --=-=-=--