1 ;;;; This file contains definitions of VOPs used as internal markers by
2 ;;;; the compiler. Since they don't emit any code, they should be
5 ;;;; This software is part of the SBCL system. See the README file for
8 ;;;; This software is derived from the CMU CL system, which was
9 ;;;; written at Carnegie Mellon University and released into the
10 ;;;; public domain. The software is in the public domain and is
11 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
12 ;;;; files for more information.
19 ;;; This notes the place at which the environment is properly
20 ;;; initialized, for debug-info purposes.
21 (define-vop (note-environment-start)
24 (:save-p :compute-only)
26 (emit-label start-lab)
27 (note-debug-location vop start-lab :non-local-entry)))
29 ;;; Call a move function. Used for register save/restore and spilling.
30 (define-vop (move-operand)
36 (funcall (symbol-function name) vop x y)))