|
0
|
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, 2009 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 3, 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 ; Under Section 7 of GPL version 3, you are granted additional
|
|
|
18 ; permissions described in the GCC Runtime Library Exception, version
|
|
|
19 ; 3.1, as published by the Free Software Foundation.
|
|
|
20
|
|
|
21 ; You should have received a copy of the GNU General Public License and
|
|
|
22 ; a copy of the GCC Runtime Library Exception along with this program;
|
|
|
23 ; see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|
|
24 ; <http://www.gnu.org/licenses/>.
|
|
|
25
|
|
|
26 #if !defined(__pro__) && !defined(__rtems__)
|
|
|
27 .SPACE $PRIVATE$
|
|
|
28 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
|
|
|
29 .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
|
|
|
30 .SPACE $TEXT$
|
|
|
31 .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
|
|
|
32 .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
|
|
|
33 .SUBSPA $MILLICODE$,QUAD=0,ALIGN=8,ACCESS=44,SORT=8
|
|
|
34 #endif
|
|
|
35 .IMPORT $$dyncall,MILLICODE
|
|
|
36 #if !defined(__pro__) && !defined(__rtems__)
|
|
|
37 .SPACE $TEXT$
|
|
|
38 .SUBSPA $CODE$
|
|
|
39 #else
|
|
|
40 .text
|
|
|
41 #endif
|
|
|
42
|
|
|
43 ; Simply call with the address of the desired import stub in %r22 and
|
|
|
44 ; arguments in the normal place (%r26-%r23 and stack slots).
|
|
|
45 ;
|
|
|
46 .align 4
|
|
|
47 .EXPORT __gcc_plt_call,ENTRY,PRIV_LEV=3,RTNVAL=GR
|
|
|
48 __gcc_plt_call
|
|
|
49 .PROC
|
|
|
50 .CALLINFO
|
|
|
51 .ENTRY
|
|
|
52 ; Our return address comes in %r31, not %r2!
|
|
|
53 stw %r31,-8(%r30)
|
|
|
54
|
|
|
55 ; An inline version of dyncall so we don't have to worry
|
|
|
56 ; about long calls to millicode, PIC and other complexities.
|
|
|
57 bb,>=,n %r22,30,L$foo
|
|
|
58 depi 0,31,2,%r22
|
|
|
59 ldw 4(%r22),%r19
|
|
|
60 ldw 0(%r22),%r22
|
|
|
61 L$foo
|
|
|
62 ldsid (%r22),%r1
|
|
|
63 mtsp %r1,%sr0
|
|
|
64 ble 0(%sr0,%r22)
|
|
|
65 copy %r31,%r2
|
|
|
66 ldw -8(%r30),%r2
|
|
|
67
|
|
|
68 ; We're going to be returning to a stack address, so we
|
|
|
69 ; need to do an intra-space return.
|
|
|
70 ldsid (%rp),%r1
|
|
|
71 mtsp %r1,%sr0
|
|
|
72 be,n 0(%sr0,%rp)
|
|
|
73 .EXIT
|
|
|
74 .PROCEND
|
