1.0.32.14: fix build under clisp
[sbcl.git] / src / compiler / pseudo-vops.lisp
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
3 ;;;; portable.
4
5 ;;;; This software is part of the SBCL system. See the README file for
6 ;;;; more information.
7 ;;;;
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.
13
14 (in-package "SB!C")
15
16 ;;; This notes the place at which the environment is properly
17 ;;; initialized, for debug-info purposes.
18 (define-vop (note-environment-start)
19   (:info start-lab)
20   (:vop-var vop)
21   (:save-p :compute-only)
22   (:generator 0
23     (emit-label start-lab)
24     (note-debug-location vop start-lab :non-local-entry)))
25
26 ;;; Call a move function. Used for register save/restore and spilling.
27 (define-vop (move-operand)
28   (:args (x))
29   (:results (y))
30   (:info name)
31   (:vop-var vop)
32   (:generator 0
33     (funcall (symbol-function name) vop x y)))