common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Stop calling clock-gettime to gather data that users never see

Browse source 
It was an attempt to track changes in regression test timing which
segregate compile vs execution times.
This commit is contained in:
Douglas Katzman 2025-08-31 15:53:48 -04:00
parent 0be32b400b
commit 98d71ca070
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/compiler/main.lisp
View file

@ -1734,8 +1734,10 @@ necessary, since type inference may take arbitrarily long to converge.")
(defglobal *compile-elapsed-time* 0) ; nanoseconds
(defglobal *compile-file-elapsed-time* 0) ; nanoseconds
(defun get-thread-virtual-time ()
#+(and linux (not sb-xc-host)) (sb-unix:clock-gettime sb-unix:clock-thread-cputime-id)
#-(and linux (not sb-xc-host)) (values 0 0))
#+(and linux sb-devel (not sb-xc-host))
(return-from get-thread-virtual-time
(sb-unix:clock-gettime sb-unix:clock-thread-cputime-id))
(values 0 0))
(defun accumulate-compiler-time (symbol start-sec start-nsec)
(declare (ignorable symbol start-sec start-nsec))