From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: =?UTF-8?B?VG9tbWkgSMO2eW7DpGzDpG5tYWE=?= Newsgroups: gmane.lisp.guile.devel Subject: Corrected cumulative time measuring support Date: Tue, 26 Jan 2021 13:27:22 +0200 Message-ID: <5f91eb67-438a-6091-9dcb-83992815f576@gmail.com> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha256; protocol="application/pgp-signature"; boundary="KUtUt7kogtfX7q9l0oHVXbLRJA9i95ZPA" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="22924"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Thunderbird/78.5.0 To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Tue Jan 26 12:44:13 2021 Return-path: Envelope-to: guile-devel@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 1l4MlY-0005sd-Sv for guile-devel@m.gmane-mx.org; Tue, 26 Jan 2021 12:44:12 +0100 Original-Received: from localhost ([::1]:46842 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l4MlX-0003ev-TJ for guile-devel@m.gmane-mx.org; Tue, 26 Jan 2021 06:44:11 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:37444) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1l4MVQ-0004xT-SQ for guile-devel@gnu.org; Tue, 26 Jan 2021 06:27:32 -0500 Original-Received: from mail-lj1-x22c.google.com ([2a00:1450:4864:20::22c]:43683) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1l4MVN-0003MS-3r for guile-devel@gnu.org; Tue, 26 Jan 2021 06:27:32 -0500 Original-Received: by mail-lj1-x22c.google.com with SMTP id t8so11758567ljk.10 for ; Tue, 26 Jan 2021 03:27:26 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=to:from:subject:autocrypt:message-id:date:user-agent:mime-version; bh=U/Yzh98aPTXnTx2SUknqsAL3Aslh9nY2Sat7usMI4gU=; b=Fq7xYQiVqPz7tqu8zYoD860neHCo/38BmaQcbAAF271m9kw0OZyB7UK3brKRw6rTXJ /u7DIICWoD3KfqY/At3h0cM4Edsm7ILKvd588GXxjqnOQPRwrMhph9yua18eL6w4bXl3 408BXigx/VZUG0nSEnUXgjx+Md0Ng3iB/iGOZ6NmkNZWdQyZId8ItprvBJm06HMZotpW jB/VFbI35vw+zNZd7sa/ys/xWkoANPpDgeHgfP8HIWK7xad8B8z+G64mE4WzT2PlbAKy Dr/ru4vivf9cIypnN1Hj/EwF1IcMfHLOyQbRBeGm8cJxqYeqvLHZIUGk6zDBmyojV240 rrlQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:to:from:subject:autocrypt:message-id:date :user-agent:mime-version; bh=U/Yzh98aPTXnTx2SUknqsAL3Aslh9nY2Sat7usMI4gU=; b=ImGyWEgTM0caMW4cXmftt8K+p48V7AcbuVNTksXKxI5073od6ahYSLTB1ZsdfVwFvU opCmeL0DHPEsc+C00Avbrhl7rlzKYqQRe4Nr0a6Lmxdt0tST3CXzSZ8K50Nl6YHE7EgF bZeu55E/7qq51X4t5JXJlLioCN/aLWvHR3g78QyYQS8AfZivtrw2dU0vdoDnXDXAdYd8 7qH4qxnhE/yLCH9bK9iwuvd5j9EoxKb0/2S2J6FLH+kag662PINf1x1cM00tXZX8ct9d xbAnMRVYX2kDdTXOM0WG2g/e/LpDQiht+mAp/f079DSweeoYFP31gJC8NTcD9NBVNI1R u41w== X-Gm-Message-State: AOAM5323rGA59Sg9jBeSi0Q4CMo4+rGAsk9saSrOOZADp9nF0MFsS0Pt ZtYfbyAuBTSWdSNGn0Ktd67uvg5YTm7G X-Google-Smtp-Source: ABdhPJxzjFxv0PnkekU7RLWbyjEfetSP8qF6WjS4tgd+szjLvsETwb8s6ajSJixcUzHDqNUFrgAZbA== X-Received: by 2002:a2e:8602:: with SMTP id a2mr2574097lji.421.1611660444509; Tue, 26 Jan 2021 03:27:24 -0800 (PST) Original-Received: from [192.168.43.143] (mobile-access-2e8405-66.dhcp.inet.fi. [46.132.5.66]) by smtp.gmail.com with ESMTPSA id w17sm2528853lft.52.2021.01.26.03.27.23 for (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Tue, 26 Jan 2021 03:27:23 -0800 (PST) Autocrypt: addr=tommi.hoynalanmaa@gmail.com; keydata= xsFNBF+7UosBEAC4Uv03kSVIAHjl5FhbxqeLU8fQ6tQjEzbvOz0eqls5ShMLYVBUH5PubV9A wOjduQchWtrLgwwSz21TJm8ND2qqTjydYT+hs3AGw/F5Jq4ShXE7SobpXa5LDAvLe8k2PJ20 iSN7t3x6flTTph3Jz6BnH0IGGmdKh3arVdWYJ86whaI9hYqmK3TzD8d21wXA5Q8RlKt3008i G0cd4QEYlYkEXIWTd50q0dXr/YbNBKI2hmarm9kJ9Ihh7lauMeJeRllbtl1tCw2NY8KICNOV ZKcUZMZvRv8tzqwONXHzVpiCr4f9ZH4ltz+lXcCAYmSWd4mVSC1opZamWOeBfqda8YUOKDdJ dmImEfk5Q2IC/DTqt5FgA5Oi8FiIvUhsqkstVn11bUqREid0wd5/qfARiQjy0wdNmFpDh9pL qWm1n1nQvt9gtCm8yRY3MqFGVKlPyINo+xsiihUArAQ114Lc6gStM2F4HOqWuZx8hxlgmJb0 tLB+tF7twyfBbIdMKKWYrVElN1otQv5MmNrF4g8MJ9xoqHcNYuz8miAI5g2aXzvi3Ftum11U JrkcTL5PFgvfL/4zo6SnH49MOQSWRE47g8sxKIZpYs/h79g0kjfFPF7YPa+oJnCvQWpAb8Ge C9TrUUv+g74MhxpBX+QckpxM8VjYMNZBOVUHeQy6GzSXkdyIVQARAQABzTJUb21taSBIw7Z5 bsOkbMOkbm1hYSA8dG9tbWkuaG95bmFsYW5tYWFAZ21haWwuY29tPsLBjwQTAQgAORYhBFX0 JHdxVTUoXLIreruGH95ARg+DBQJfu1K Received-SPF: pass client-ip=2a00:1450:4864:20::22c; envelope-from=tommi.hoynalanmaa@gmail.com; helo=mail-lj1-x22c.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Original-Sender: "guile-devel" Xref: news.gmane.io gmane.lisp.guile.devel:20654 Archived-At: This is an OpenPGP/MIME signed message (RFC 4880 and 3156) --KUtUt7kogtfX7q9l0oHVXbLRJA9i95ZPA Content-Type: multipart/mixed; boundary="01M2wtrzwvK0szTymJhrtel2JkyityaZx"; protected-headers="v1" From: =?UTF-8?B?VG9tbWkgSMO2eW7DpGzDpG5tYWE=?= To: guile-devel@gnu.org Message-ID: <5f91eb67-438a-6091-9dcb-83992815f576@gmail.com> Subject: Corrected cumulative time measuring support --01M2wtrzwvK0szTymJhrtel2JkyityaZx Content-Type: multipart/mixed; boundary="------------3541414E33C54AAF3E744425" Content-Language: en-US This is a multi-part message in MIME format. --------------3541414E33C54AAF3E744425 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: quoted-printable Hi I made an enhanced version of Guile statprof that computes the=20 cumulative time spent in procedures correctly (so that recursive=20 invocations of the same procedure are counted only once). The patch is=20 attached. Please inform me if you find any bugs. =C2=A0=C2=A0=C2=A0=C2=A0 - Tommi H=C3=B6yn=C3=A4l=C3=A4nmaa --------------3541414E33C54AAF3E744425 Content-Type: text/x-patch; charset=UTF-8; name="diff1.patch" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="diff1.patch" 31c31 < (define-module (statprof) --- > (define-module (statprof-work) 358c358,359 < call-count cum-sample-count self-sample-count) --- > call-count cum-sample-count corr-cum-sample-count > self-sample-count) 364a366,367 > (corr-cum-sample-count call-data-corr-cum-sample-count > set-call-data-corr-cum-sample-count!) 389a393,396 > (define (inc-call-data-corr-cum-sample-count! cd) > (set-call-data-corr-cum-sample-count! > cd > (1+ (call-data-corr-cum-sample-count cd)))) 427c434,435 < 0))) --- > 0 > 0))) 446c454,455 < (let visit-stack ((pos pos)) --- > (let visit-stack ((pos pos) > (visited-data '())) 450,451c459,463 < (inc-call-data-cum-sample-count! (addr->call-data ip= )) < (visit-stack (1+ pos)))) --- > (let ((cur-data (addr->call-data ip))) > (inc-call-data-cum-sample-count! cur-data) > (if (not (memv cur-data visited-data)) > (inc-call-data-corr-cum-sample-count! cur-data)) > (visit-stack (1+ pos) (cons cur-data visited-data))))) 505c517,518 < %-time-in-proc cum-secs-in-proc self-secs-in-proc --- > %-time-in-proc cum-secs-in-proc corr-cum-secs-in-proc > self-secs-in-proc 511a525 > (corr-cum-secs-in-proc statprof-stats-corr-cum-secs-in-proc) 536a551 > (corr-cum-samples (call-data-corr-cum-sample-count call-data))= 549a565 > (* corr-cum-samples secs-per-sample 1.0) 580c596 < (format port "~6,2f ~9,2f ~9,2f" --- > (format port "~6,2f ~9,2f ~9,2f ~9,2f" 582a599 > (statprof-stats-corr-cum-secs-in-proc stats) 602,605c619,622 < (format port "~5a ~10a ~7a ~8a\n" < "% " "cumulative" "self" "") < (format port "~5a ~9a ~8a ~7a ~a\n" < "time" "seconds" "seconds" "calls" "procedure")) --- > (format port "~5a ~10a ~10a ~7a ~8a\n" > "% " "cumulative" "corr. cum." "self" "") > (format port "~5a ~10a ~10a ~8a ~7a ~a\n" > "time" "seconds" "seconds" "seconds" "calls" "proc= edure")) 607,610c624,627 < (format port "~5a ~10a ~7a ~8a\n" < "%" "cumulative" "self" "") < (format port "~5a ~10a ~7a ~a\n" < "time" "seconds" "seconds" "procedure"))) --- > (format port "~5a ~10a ~10a ~7a ~8a\n" > "%" "cumulative" "corr. cum." "self" "") > (format port "~5a ~10a ~10a ~7a ~a\n" > "time" "seconds" "seconds" "seconds" "procedure"))= ) --------------3541414E33C54AAF3E744425 Content-Type: application/pgp-keys; name="OpenPGP_0xBB861FDE40460F83.asc" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="OpenPGP_0xBB861FDE40460F83.asc" -----BEGIN PGP PUBLIC KEY BLOCK----- xsFNBF+7UosBEAC4Uv03kSVIAHjl5FhbxqeLU8fQ6tQjEzbvOz0eqls5ShMLYVBUH5PubV9Aw= Ojd uQchWtrLgwwSz21TJm8ND2qqTjydYT+hs3AGw/F5Jq4ShXE7SobpXa5LDAvLe8k2PJ20iSN7t= 3x6 flTTph3Jz6BnH0IGGmdKh3arVdWYJ86whaI9hYqmK3TzD8d21wXA5Q8RlKt3008iG0cd4QEYl= YkE XIWTd50q0dXr/YbNBKI2hmarm9kJ9Ihh7lauMeJeRllbtl1tCw2NY8KICNOVZKcUZMZvRv8tz= qwO NXHzVpiCr4f9ZH4ltz+lXcCAYmSWd4mVSC1opZamWOeBfqda8YUOKDdJdmImEfk5Q2IC/DTqt= 5Fg A5Oi8FiIvUhsqkstVn11bUqREid0wd5/qfARiQjy0wdNmFpDh9pLqWm1n1nQvt9gtCm8yRY3M= qFG VKlPyINo+xsiihUArAQ114Lc6gStM2F4HOqWuZx8hxlgmJb0tLB+tF7twyfBbIdMKKWYrVElN= 1ot Qv5MmNrF4g8MJ9xoqHcNYuz8miAI5g2aXzvi3Ftum11UJrkcTL5PFgvfL/4zo6SnH49MOQSWR= E47 g8sxKIZpYs/h79g0kjfFPF7YPa+oJnCvQWpAb8GeC9TrUUv+g74MhxpBX+QckpxM8VjYMNZBO= VUH eQy6GzSXkdyIVQARAQABzTJUb21taSBIw7Z5bsOkbMOkbm1hYSA8dG9tbWkuaG95bmFsYW5tY= WFA Z21haWwuY29tPsLBjwQTAQgAORYhBFX0JHdxVTUoXLIreruGH95ARg+DBQJfu1KMBQkFo5qAA= hsD BQsJCAcCBhUICQoLAgUWAgMBAAAKCRC7hh/eQEYPg4x8EACN6nozccEeGXDTlPgpgTa9evi89= PYF 82YMvIdu2S6YDFMQs5O3glQxbuprsvU2ZbchnYfjjnq8GWYxNjsYXOBrH2u90qrSSfM5pdkLB= fY9 EmZlh8tIa4CrPLMS1nQ88xKemfOLN492ZVX7mbtBhFS9V9gxT13R03S42H7LdtIpzq2ENY0kh= Wv8 4lBIT2HhPYSotvxY+0QFZZ2037lxE24U5Dc19ydQAcU61kTaOYmzjkVfJBak+wf3M9Az5TH5Y= umc KgWTMdOHDmqEps5n3uaCDe8A52JLakG462sBwruOikmzw0Hjlv1MLrhnaDxew5Ye1ah88BLvO= QCE q/IPppQTdiwcv1MoauDIAb8l4VsuDD8bUtnsh6rMFiD/G2QpGnQLGWoQTxxnzpafx8iSjqiE1= HUw wSsFpkB2t5i54Xtu0NNBQC6pcYWnaT2SGsw21qwONPF8FwEcMRS/8zmUN/yVhq+qJm0nm7Sf9= beK HGBKOAsEjiQovS5QKP4Jcp/NwjjcF3yK7iBvVeTFIf198ECkdJW/ONG6EhutxVKaAPs+zjRPM= cog qkQnrYen61z+1aSSvrD2cZ5U/WfTXkTA+ZLqald8En6yEK3WnQnp5vQQTb2w7yaOUM+6ZrDWV= 5PP qQzw1f2sAJ6NcaaOAjRvflElbrpvoKzgOahDlLGrxmOHac7BTQRfu1KNARAAymg3rs9Hd/e0k= OFA gzQYMDR8IQuCO3aOkBRD5JBLZnGFDqZa7NDSm6dXvbiQbtOXpYFBtunQa+g97JN422KDes4GA= jpY wAMxhdRUyFjpMcNPPEX2RGU0OguGnUdlN3FIdCVFIFT1PFvjIB5BDTN10Ycd35o7Txoy2xgO3= Gwu NU6Jw3RMMD5EO3NNCYrQnzqhcjRm5u35bInH7L+IlloN7T8bu6we9+cvy9SfZJhwU8Dp9aJBI= MLA 5a8gGJ2z+3FkxGCZuuANE2NMHDq/QM5T03pE3g/DfsxfIvPPAUSgu7mrm63XQVBmSuwrMOczI= 2TI n5wNNze8bII3Rvf/lzsnnSAAuM8b63PR/lEOgEUiXBNyhjQIm0rssUX1IevAOP5nKM0IsboOL= Szw WU6leBBu+lj9Cc5tF+7Wv79Al/Rnld8IDjw6e1dnOQ4dmdgsZOHpAN7e737jnWIfh/XfAguBO= zs6 OD3Hi8g/ak5GP60ecI0rnzsU68eQyDFjR8sugsL9i7p86U2C2M2UfMjqomaL6tD3ySR6IZlmg= +2o D0KqnD8D1PNUDmlZDAURPBN4F+2VTYpLcdavPNy7mJSc5girx2dbWeGEJmVJs5+t2+YMi7HyJ= pWW dQ6hW4zx5FdPzzVHUwyZbNLKGrPWzFY6LDyflJYxDmIwEqVo3PB5evPOsPUAEQEAAcLBfAQYA= QgA JhYhBFX0JHdxVTUoXLIreruGH95ARg+DBQJfu1KPBQkFo5qAAhsMAAoJELuGH95ARg+DZNAP/= 1Ur Vj0hm/m8P0hwffe/73r4Ri3OxrxkniGWce7iwkVT4pLA0y7H9PXT+dsqgiEJtdCJ2shcqUMUo= +UL hsbh/KAfeFWXErjFajlKwsOpO6ndu+bmIH2S8Z5OAJ4XKwL74nsapf3Jp3CgzsMmfMps01ekf= QKy pBETwBBvrtEaU3Wob/lXrJXJQOrZ3dez6uSgen1eYc9E1vmsSPqWXWdLHWVnwK1ruP0vHP/MT= o48 0qiwksKyIS4mCTr6gfbo6wsWqWM/gRaW3/SHS0Mnb9ARcb6N+v7k2qyP9O+LqhvvkoXhiKKbF= Uej JO0X+NPMvrJx1DNn6iMl2aDdueO5yMs+/LjBZxzz8Nn3VNZow7zfBVQSTxLTavYalNi4pijkC= Xw2 pRsOOwwVihmK7qyNV0dSMGQ/vRhKXSVUpsqzqwAJ8mo+JTzJF0sr6zHexYczBQZ3HYXnjzmA4= COl GiUNkT+0D4x3h5YqoPYRZw8MfOhnBArMwCZ5/lvyRwIxPeiZp29kX4pBBxV4UvpwShm/nq5lQ= G6P aTndery3rKxW+jZIequ/AJaebQf4RD/ZfdbvqBBBAj54Yn+GdPMYUpyeb464vTlfFSVWjV0SG= dKn UJWAoAuz0JUePOgXDS8zF+4/O1aPYCwzo6wd1sNSTgxNVBYisvRVBTgRwK63UbpK+KoeYz1q =3D3eRz -----END PGP PUBLIC KEY BLOCK----- --------------3541414E33C54AAF3E744425-- --01M2wtrzwvK0szTymJhrtel2JkyityaZx-- --KUtUt7kogtfX7q9l0oHVXbLRJA9i95ZPA Content-Type: application/pgp-signature; name="OpenPGP_signature.asc" Content-Description: OpenPGP digital signature Content-Disposition: attachment; filename="OpenPGP_signature" -----BEGIN PGP SIGNATURE----- wsF5BAABCAAjFiEEVfQkd3FVNShcsit6u4Yf3kBGD4MFAmAP/JoFAwAAAAAACgkQu4Yf3kBGD4OJ zA/+NMDdNctSZfalYK5XUgmxkFSfD6Cfd5OgoNiLuBkYx94bwazrgFeXoO5NN5MMdulAy1o3U8U8 zas9qleqqGrqyIpKXmxGrXWnaSkIF4C4aeIkY6sEQHCsn2PquEScn0UpKy6PIvvFP4n9xD+/c7gg fNH0VU31iTiqS+DZtN+iEZxCwj69w77YkPjKcSUxt/YOErQ8HZhozM/fTMaKbJwzRwWXx7psUdY9 9lpY8X99efymt6JGvnFsOJPt95nQxJauM0gxAcftfLYc3sPIe1V64N9CIqYxAdXz5dk8smxcFi45 AWzVyyBlRl4/QWuInZ9VbL4VvZEkgtLqMUVzhpNoJD3/ZMO3whPoqYOU82vJm7LKD4wwqaVeuHGZ YuOWZzyg7pwoiMXrQbUbcB/7rJiuvt3REcUyxHRVGpitwwWM+mFEvc8pjvLDs5Ptq1qgyA5Oo2AH kCteLsARA/JAj76eZRoeKqJhN1bnMEEiRQMHq9UbLUOoEX1GrPLRZYttJje0oDK1px44pNRDLvYQ 31cPo0aa7YEL+HjOLDPIQHv8MNoYhX5SiF6bZlg72/xZmPdKBqZ+eNNdq55xg8AoytM8KyffvwCv rA4NxuVQS/b4eYcwV/qVLDGZnau4l80VTy+Re0RyOP1qtEDaQsRjWMDIqPffRFVImnCGJzdI8MCN +5o= =fEbk -----END PGP SIGNATURE----- --KUtUt7kogtfX7q9l0oHVXbLRJA9i95ZPA--