I'm learning the profiler in MIT Scheme. It's my understanding (with-stack-sampling interval_ms proc) allows sampling, which interrupts the program and records the return address on the stack. The two counts returned # times return address was at the top of the stack, called sampled count and that the return address was somewhere else on the stack waiting count.
I decided to run it on the Fibonacci sequence function, however could use better understanding of interpreting the results. I'm trying to find the impact of the factorial function in the output, however could use guidance. Does the compiled code have any impact on spotting f's profile data?
(with-stack-sampling 1 (lambda () (f 20000) '()))
; Stack-sampling... done
; 34 samples
;
; *** Waiting
;
; 31 samples in (runtime user-interface), with-notification, (let), (lambda):
; evaluating
; (let ((.*notification-depth*.1-0 ...))
; (define (swap!) (set! *notification-depth* ...) #!unspecific)
; (shallow-fluid-bind swap! (lambda () ...) swap!))
; for ### in
; (let ((v ###)) (set! done? #t) v)
;
; 31 samples in (runtime rep), %repl-eval/write:
; evaluating
; (%repl-eval s-_expression_ environment repl)
; for ### in
; (hook/repl-write ### s-_expression_ environment repl)
;
; 31 samples in (runtime rep), cmdl/start, (let), (lambda), (let), (lambda), (let), loop:
; evaluating
; (bind-abort-restart
; cmdl
; (lambda ()
; (deregister-all-events)
; (with-interrupt-mask interrupt-mask/all ...)))
; for ### in
; (loop ###)
;
; 31 samples in (runtime microcode-errors), define-error-handler, (let), (lambda), (lambda):
; evaluating
; (handler continuation)
; for ### in
; (begin ### (default-error-handler continuation error-code))
;
; 31 samples in (runtime stack-sampler), with-stack-sampling:
; evaluating
; (with-notification
; (lambda (output-port) (write-string "Stack-sampling" output-port))
; (lambda () (run-with-stack-sampling sample-interval thunk)))
; for ### in
; (### (lambda (value profile) (write-notification-line ...) value))
;
; 31 samples in #[compiled-return-address 14 () #x28 #x110028]:
; evaluating undefined _expression_
;
; 31 samples in (runtime stack-sampler), run-with-stack-sampling, (let):
; evaluating
; (with-simple-restart
; 'abort
; "Abort stack sampling."
; (lambda () (dynamic-wind register-event ... deregister-event)))
; for ### in
; (let ((value-0 ###) (value-1 profile))
; (lambda (receiver) (receiver value-0 value-1)))
;
; 31 samples in (runtime rep), %repl-eval:
; evaluating
; (hook/repl-eval s-_expression_ environment repl)
; for ### in
; (let ((value ###))
; (repl-history/record! (%record-ref ... 5) value)
; value)
;
; 31 samples in (runtime rep), repl-driver, (let), do-loop:
; evaluating
; (if (queue-empty? queue)
; (let (...) (%repl-eval/write ... environment repl))
; ((dequeue! queue) repl))
; for ### in
; (begin ### (do-loop))
;
;
; *** Sampled
;
; 3 samples in (runtime interrupt-handler), after-gc-interrupt-handler:
; evaluating
; (begin (trigger-gc-daemons!)
; (clear-interrupts! interrupt-bit/after-gc))
;
; 31 samples in (runtime stack-sampler), with-stack-sampling-continuation:
; evaluating
; (call-with-current-continuation (lambda (continuation) (let ... ...)))
; for ### in
; (identity-procedure ###)
;
;
;Value: ()