1;  Subroutines for calling unbound dynamic functions from within GDB for HPPA.
2;  Subroutines for out of line prologues and epilogues on for the HPPA
3;  Copyright (C) 1994, 1995, 1996 Free Software Foundation, Inc.
4
5;  This file is part of GCC.
6
7;  GCC is free software; you can redistribute it and/or modify
8;  it under the terms of the GNU General Public License as published by
9;  the Free Software Foundation; either version 2, or (at your option)
10;  any later version.
11
12;  GCC is distributed in the hope that it will be useful,
13;  but WITHOUT ANY WARRANTY; without even the implied warranty of
14;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15;  GNU General Public License for more details.
16
17;  In addition to the permissions in the GNU General Public License, the
18;  Free Software Foundation gives you unlimited permission to link the
19;  compiled version of this file into combinations with other programs,
20;  and to distribute those combinations without any restriction coming
21;  from the use of this file.  (The General Public License restrictions
22;  do apply in other respects; for example, they cover modification of
23;  the file, and distribution when not linked into a combine
24;  executable.)
25
26;  You should have received a copy of the GNU General Public License
27;  along with GCC; see the file COPYING.  If not, write to
28;  the Free Software Foundation, 59 Temple Place - Suite 330,
29;  Boston, MA 02111-1307, USA.
30
31#if !defined(__pro__) && !defined(__rtems__)
32	.SPACE $PRIVATE$
33	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
34	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
35	.SPACE $TEXT$
36	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
37	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
38	.SUBSPA $MILLICODE$,QUAD=0,ALIGN=8,ACCESS=44,SORT=8
39#endif
40	.IMPORT $$dyncall,MILLICODE
41#if !defined(__pro__) && !defined(__rtems__)
42	.SPACE $TEXT$
43	.SUBSPA $CODE$
44#else
45	.text
46#endif
47
48; Simply call with the address of the desired import stub in %r22 and
49; arguments in the normal place (%r26-%r23 and stack slots).
50;
51	.align 4
52	.EXPORT __gcc_plt_call,ENTRY,PRIV_LEV=3,RTNVAL=GR
53__gcc_plt_call
54	.PROC
55	.CALLINFO
56	.ENTRY
57	; Our return address comes in %r31, not %r2!
58	stw %r31,-8(%r30)
59
60	; An inline version of dyncall so we don't have to worry
61	; about long calls to millicode, PIC and other complexities.
62	bb,>=,n %r22,30,L$foo
63        depi 0,31,2,%r22
64        ldw 4(%r22),%r19
65        ldw 0(%r22),%r22
66L$foo
67        ldsid (%r22),%r1
68        mtsp %r1,%sr0
69        ble 0(%sr0,%r22)
70	copy %r31,%r2
71	ldw -8(%r30),%r2
72
73	; We're going to be returning to a stack address, so we
74	; need to do an intra-space return.
75	ldsid (%rp),%r1
76	mtsp %r1,%sr0
77	be,n 0(%sr0,%rp)
78	.EXIT
79	.PROCEND
80