diff options
| author | kenner <kenner@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-11-18 04:27:50 +0000 |
|---|---|---|
| committer | kenner <kenner@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-11-18 04:27:50 +0000 |
| commit | e53bdd7060588b3151245303679349a3a0537e20 (patch) | |
| tree | fcfefbc03eeae0f677c2bda2b9a5231c7e269d68 /gcc/config/alpha/vms_tramp.asm | |
| parent | dd878098cf978ba5ce22a1f899c8775e45d97669 (diff) | |
| download | gcc-e53bdd7060588b3151245303679349a3a0537e20.tar.gz | |
* config/alpha/t-vms (LIB2FUNCS_EXTRA): Add vms_tramp.asm.
* config/alpha/vms_tramp.asm: New file.
* config/alpha/vms-tramp.asm: Removed.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47134 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/config/alpha/vms_tramp.asm')
| -rw-r--r-- | gcc/config/alpha/vms_tramp.asm | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/gcc/config/alpha/vms_tramp.asm b/gcc/config/alpha/vms_tramp.asm new file mode 100644 index 00000000000..9a6a1c8a241 --- /dev/null +++ b/gcc/config/alpha/vms_tramp.asm @@ -0,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 |