/[cmucl]/src/compiler/pseudo-vops.lisp
ViewVC logotype

Contents of /src/compiler/pseudo-vops.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.10 - (show annotations)
Fri Mar 19 15:19:01 2010 UTC (4 years, 1 month ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, release-20b-pre1, release-20b-pre2, sparc-tramp-assem-2010-07-19, GIT-CONVERSION, cross-sol-x86-merged, RELEASE_20b, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-08, cross-sol-x86-2010-12-20, cross-sparc-branch-base, HEAD
Branch point for: cross-sparc-branch, RELEASE-20B-BRANCH, sparc-tramp-assem-branch, cross-sol-x86-branch
Changes since 1.9: +2 -2 lines
Merge intl-branch 2010-03-18 to HEAD.  To build, you need to use
boot-2010-02-1 as the bootstrap file.  You should probably also use
the new -P option for build.sh to generate and update the po files
while building.
1 ;;; -*- Package: C; Log: C.Log -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;; This code was written as part of the CMU Common Lisp project at
5 ;;; Carnegie Mellon University, and has been placed in the public domain.
6 ;;;
7 (ext:file-comment
8 "$Header: /tiger/var/lib/cvsroots/cmucl/src/compiler/pseudo-vops.lisp,v 1.10 2010/03/19 15:19:01 rtoy Rel $")
9 ;;;
10 ;;; **********************************************************************
11 ;;;
12 ;;; This file contains definitions of VOPs used as internal markers by the
13 ;;; compiler. Since they don't emit any code, they should be portable.
14 ;;;
15 ;;; Written by Rob MacLachlan
16 ;;;
17 (in-package "C")
18 (intl:textdomain "cmucl")
19
20 ;;; Notes the place at which the environment is properly initialized, for
21 ;;; debug-info purposes.
22 ;;;
23 (define-vop (note-environment-start)
24 (:info start-lab)
25 (:vop-var vop)
26 (:save-p :compute-only)
27 (:generator 0
28 (emit-label start-lab)
29 (note-debug-location vop start-lab :non-local-entry)))
30
31
32 ;;; Call a move function. Used for register save/restore and spilling.
33 ;;;
34 (define-vop (move-operand)
35 (:args (x))
36 (:results (y))
37 (:info name)
38 (:vop-var vop)
39 (:generator 0
40 (funcall (symbol-function name) vop x y)))
41

  ViewVC Help
Powered by ViewVC 1.1.5