1/* VMS trampoline for nested functions
2   Copyright (C) 2001 Free Software Foundation, Inc.
3   Contributed by Douglas B. Rupp (rupp@gnat.com).
4
5This file is part of GCC.
6
7GCC is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
9the Free Software Foundation; either version 2, or (at your option)
10any later version.
11
12In addition to the permissions in the GNU General Public License, the
13Free Software Foundation gives you unlimited permission to link the
14compiled version of this file into combinations with other programs,
15and to distribute those combinations without any restriction coming
16from the use of this file.  (The General Public License restrictions
17do apply in other respects; for example, they cover modification of
18the file, and distribution when not linked into a combine
19executable.)
20
21GCC is distributed in the hope that it will be useful,
22but WITHOUT ANY WARRANTY; without even the implied warranty of
23MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
24GNU General Public License for more details.
25
26You should have received a copy of the GNU General Public License
27along with GCC; see the file COPYING.  If not, write to
28the Free Software Foundation, 51 Franklin Street, Fifth Floor,
29Boston, MA 02110-1301, USA.  */
30
31;# Alpha OpenVMS trampoline
32;#
33	.set noreorder
34	.set volatile
35	.set noat
36	.file 1 "vms_tramp.asm"
37.text
38	.align 3
39	.globl __tramp
40	.ent __tramp
41__tramp..en:
42
43.link
44	.align 3
45__tramp:
46	.pdesc __tramp..en,null
47.text
48	ldq $1,24($27)
49	ldq $27,16($27)
50	ldq $28,8($27)
51	jmp $31,($28),0
52	.end __tramp
53