Calls to `##sys#register-profile-info' and `set-profile-info-vector!`
are inserted into the program when profiling is enabled, so they should
be marked as procedures so the resulting call nodes are marked as safe,
just like we do for the `##sys#profile-entry' and `exit' procedures.
---
c-platform.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git c-platform.scm c-platform.scm
index 9d20a524..19a4c97f 100644
--- c-platform.scm
+++ c-platform.scm
@@ -72,8 +72,10 @@
(define default-profiling-declarations
'((##core#declare
(uses profiler)
- (bound-to-procedure
- ##sys#profile-entry ##sys#profile-exit) ) ) )
+ (bound-to-procedure ##sys#profile-entry
+ ##sys#profile-exit
+ ##sys#register-profile-info
+ ##sys#set-profile-info-vector!))))
(define default-units '(library eval))
--
2.25.1
