src/compiler/x86-64/show.lisp

   1 ;;;; VOPs which are useful for following the progress of the system
   2 ;;;; early in boot
   3
   4 ;;;; This software is part of the SBCL system. See the README file for
   5 ;;;; more information.
   6 ;;;;
   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.
  12
  13 (in-package "SB!VM")
  14
  15 ;;; FIXME: should probably become conditional on #!+SB-SHOW
  16 ;;; FIXME: should be called DEBUG-PRINT or COLD-PRINT
  17 (define-vop (print)
  18   (:args (object :scs (descriptor-reg any-reg)
  19                  :target rdi))
  20   (:temporary (:sc unsigned-reg
  21                :offset rdi-offset
  22                :from :eval)
  23               rdi)
  24   (:temporary (:sc unsigned-reg
  25                :offset rax-offset
  26                :target result
  27                :from :eval
  28                :to (:result 0))
  29               rax)
  30   (:temporary (:sc unsigned-reg :offset r13-offset) r13)
  31   (:temporary (:sc unsigned-reg) call-target)
  32   (:results (result :scs (descriptor-reg)))
  33   (:save-p t)
  34   (:generator 100
  35     (move rdi object)
  36     (inst mov r13 rsp-tn)
  37     (inst and rsp-tn -16)
  38     (inst mov call-target (make-fixup "debug_print" :foreign))
  39     (inst call call-target)
  40     (inst mov rsp-tn r13)
  41     (move result rax)))