This is an automated email from the git hooks/post-receive script. civodul pushed a commit to branch master in repository guile.
The following commit(s) were added to refs/heads/master by this push: new bf1f542 statprof: Ensure 'call-thunk' is not inlined. bf1f542 is described below commit bf1f5422bdb364667d6761dd73454558d6dbf895 Author: Ludovic Courtès <l...@gnu.org> AuthorDate: Thu Jan 23 21:46:28 2020 +0100 statprof: Ensure 'call-thunk' is not inlined. Previously, 'make-stack' calls with the inner and outer cuts arguments would always return #f because 'call-thunk' wouldn't appear on the stack. * module/statprof.scm <top level>: Add self-assignment to 'call-thunk'. --- module/statprof.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/module/statprof.scm b/module/statprof.scm index a1e0efb..33eac44 100644 --- a/module/statprof.scm +++ b/module/statprof.scm @@ -1,7 +1,7 @@ ;;;; (statprof) -- a statistical profiler for Guile ;;;; -*-scheme-*- ;;;; -;;;; Copyright (C) 2009, 2010, 2011, 2013-2018 Free Software Foundation, Inc. +;;;; Copyright (C) 2009, 2010, 2011, 2013-2018, 2020 Free Software Foundation, Inc. ;;;; Copyright (C) 2004, 2009 Andy Wingo <wingo at pobox dot com> ;;;; Copyright (C) 2001 Rob Browning <rlb at defaultvalue dot org> ;;;; @@ -828,6 +828,10 @@ The return value is a list of nodes, each of which is of the type: (lambda results (apply values results)))) +;; Prevent inlining of 'call-thunk' so that it can be used to determine +;; the stack boundaries passed to 'make-stack'. +(set! call-thunk call-thunk) + (define* (statprof thunk #:key (loop 1) (hz 100) (count-calls? #f) (port (current-output-port)) full-stacks? (display-style 'flat))