From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Newsgroups: gmane.lisp.guile.bugs Subject: bug#59021: Unbounded heap growth when combining dynamic states & delimited continuation Date: Fri, 04 Nov 2022 19:24:50 +0100 Message-ID: <87h6zelgr1.fsf@inria.fr> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="1323"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.1 (gnu/linux) To: 59021@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Fri Nov 04 19:26:08 2022 Return-path: Envelope-to: guile-bugs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1or1OH-000AaR-Oz for guile-bugs@m.gmane-mx.org; Fri, 04 Nov 2022 19:26:05 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1or1NI-0006e6-TG; Fri, 04 Nov 2022 14:25:04 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1or1NH-0006dl-EO for bug-guile@gnu.org; Fri, 04 Nov 2022 14:25:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1or1NH-0002Ec-4P for bug-guile@gnu.org; Fri, 04 Nov 2022 14:25:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1or1NG-0000Tm-8X for bug-guile@gnu.org; Fri, 04 Nov 2022 14:25:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Fri, 04 Nov 2022 18:25:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 59021 X-GNU-PR-Package: guile X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.16675862981828 (code B ref -1); Fri, 04 Nov 2022 18:25:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 4 Nov 2022 18:24:58 +0000 Original-Received: from localhost ([127.0.0.1]:54827 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1or1NB-0000TP-SS for submit@debbugs.gnu.org; Fri, 04 Nov 2022 14:24:58 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:35006) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1or1N9-0000TH-Uk for submit@debbugs.gnu.org; Fri, 04 Nov 2022 14:24:56 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1or1N8-0006d9-EL for bug-guile@gnu.org; Fri, 04 Nov 2022 14:24:55 -0400 Original-Received: from fencepost.gnu.org ([2001:470:142:3::e]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1or1N6-0002Dg-RD for bug-guile@gnu.org; Fri, 04 Nov 2022 14:24:52 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:Date:Subject:To:From:in-reply-to: references; bh=to4nWzZiXTEamRkXbNbwHfCl2/s1JWNg4f3OGR/il1E=; b=qkVW0d+iFGiUmt sOw9YxUffx+lXoDWIf699lav1Ccewuy1+CqtZWFXgHx+V+0Gw+4DZ/IkKCqSiTS8x8wFGNOt6ao2g YU2qgEjlv/EKZSmtzLuu2YfyYdDOPL8u77YXoYwHYci2Ut5VOWmoVPJ5DR3xClXRXbdrSW7EumygH KZq6Zde9ahCqpW7mOAt/yMcav6/6KKgSfT4oNir3Mo9LoXMO3qGeBq9HgXjrscWqdb2JUjISETS01 ReY+DFj0iKREDbDaKOWxa2nXxiLXVJKtcX5m7Oin1Z5X2y0c8LvTfaidrCWYbNNcOxNkqmY1017kr PvKzIwf58/cVMF9nvGXw==; Original-Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201] helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1or1N6-00019h-Ej for bug-guile@gnu.org; Fri, 04 Nov 2022 14:24:52 -0400 X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: Quartidi 14 Brumaire an 231 de la =?UTF-8?Q?R=C3=A9volution, ?= jour de l'Endive 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 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: "bug-guile" Errors-To: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.lisp.guile.bugs:10410 Archived-At: (This is a followup to , itself a followup to .) Consider this code: --8<---------------cut here---------------start------------->8--- ;; https://issues.guix.gnu.org/58631 ;; https://github.com/wingo/fibers/issues/65 (define loss (make-vector 1000000)) (let ((tag (make-prompt-tag "my prompt"))) (define handler (lambda (k i) (when (zero? (modulo i 2000000)) (pk 'heap-size (assoc-ref (gc-stats) 'heap-size))) (call-with-prompt tag (lambda () (k (modulo (+ 1 i) 10000000))) handler))) (call-with-prompt tag (let ((state (current-dynamic-state))) (lambda () ;; (define (with-dynamic-state state thunk) ;; (let ((previous #f)) ;; (dynamic-wind ;; (lambda () (set! previous (set-current-dynamic-state state= ))) ;; thunk ;; (lambda () (set-current-dynamic-state previous))))) (with-dynamic-state state (lambda () (let loop ((i 0)) (loop (abort-to-prompt tag i))))))) handler)) --8<---------------cut here---------------end--------------->8--- On Guile 3.0.8, this program exhibits seemingly unbounded heap growth. Uncommenting the local =E2=80=98with-dynamic-state=E2=80=99 definition fixe= s the problem. Ludo=E2=80=99.