alpha/OpenVMS trampoline changes

alpha/OpenVMS trampoline changes

[Richard Kenner]

Sat Nov 17 23:30:44 2001  Douglas B. Rupp  <rupp@gnat.com>

	* config/alpha/t-vms (LIB2FUNCS_EXTRA): Add vms_tramp.asm.
	* config/alpha/vms_tramp.asm: New file.
	* config/alpha/vms-tramp.asm: Removed.

*** config/alpha/t-vms	2001/11/14 22:29:29	1.1.1.1
--- config/alpha/t-vms	2001/11/18 01:30:37
***************
*** 1 ****
! LIB2FUNCS_EXTRA = tramp.s
--- 1 ----
! LIB2FUNCS_EXTRA = $(srcdir)/config/alpha/vms_tramp.asm
*** /dev/null	Sat Nov 17 17:50:42 2001
--- config/alpha/vms_tramp.asm	Sat Nov 17 17:34:12 2001
***************
*** 0 ****
--- 1,52 ----
+ /* VMS trampoline for nested functions
+    Copyright (C) 2001 Free Software Foundation, Inc.
+    Contributed by Douglas B. Rupp (rupp@gnat.com).
+ 
+ This file is part of GNU CC.
+ 
+ GNU CC is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2, or (at your option)
+ any later version.
+ 
+ In addition to the permissions in the GNU General Public License, the
+ Free Software Foundation gives you unlimited permission to link the
+ compiled version of this file into combinations with other programs,
+ and to distribute those combinations without any restriction coming
+ from the use of this file.  (The General Public License restrictions
+ do apply in other respects; for example, they cover modification of
+ the file, and distribution when not linked into a combine
+ executable.)
+ 
+ GNU CC is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ GNU General Public License for more details.
+ 
+ You should have received a copy of the GNU General Public License
+ along with GNU CC; see the file COPYING.  If not, write to
+ the Free Software Foundation, 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA.  */
+ 
+ ;# Alpha OpenVMS trampoline
+ ;#
+ 	.set noreorder
+ 	.set volatile
+ 	.set noat
+ 	.file 1 "vms_tramp.asm"
+ .text
+ 	.align 3
+ 	.globl __tramp
+ 	.ent __tramp
+ __tramp..en:
+ 
+ .link
+ 	.align 3
+ __tramp:
+ 	.pdesc __tramp..en,null
+ .text
+ 	ldq $1,24($27)
+ 	ldq $27,16($27)
+ 	ldq $28,8($27)
+ 	jmp $31,($28),0
+ 	.end __tramp