1 ;;;; VOPs which are useful for following the progress of the system
4 ;;;; This software is part of the SBCL system. See the README file for
7 ;;;; This software is derived from the CMU CL system, which was
8 ;;;; written at Carnegie Mellon University and released into the
9 ;;;; public domain. The software is in the public domain and is
10 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
11 ;;;; files for more information.
15 ;;; FIXME: should probably become conditional on #!+SB-SHOW
16 ;;; FIXME: should be called DEBUG-PRINT or COLD-PRINT
18 (:args
(object :scs
(descriptor-reg any-reg
)))
19 (:temporary
(:sc unsigned-reg
25 (:temporary
(:sc unsigned-reg
) call-target
)
26 (:results
(result :scs
(descriptor-reg)))
31 (inst mov rbp-tn rsp-tn
)
35 (inst lea rax
(make-fixup "debug_print" :foreign
))
38 :disp
(make-fixup "call_into_c" :foreign
)))
39 (inst call call-target
)
40 (inst mov rsp-tn rbp-tn
)