]>
Commit | Line | Data |
---|---|---|
22d46b2e | 1 | ; Subroutines for calling unbound dynamic functions from within GDB for HPPA. |
e63ffc38 | 2 | ; Subroutines for out of line prologues and epilogues on for the HPPA |
a5544970 | 3 | ; Copyright (C) 1994-2019 Free Software Foundation, Inc. |
22d46b2e | 4 | |
b7849684 | 5 | ; This file is part of GCC. |
22d46b2e | 6 | |
b7849684 | 7 | ; GCC is free software; you can redistribute it and/or modify |
22d46b2e | 8 | ; it under the terms of the GNU General Public License as published by |
748086b7 | 9 | ; the Free Software Foundation; either version 3, or (at your option) |
22d46b2e JL |
10 | ; any later version. |
11 | ||
b7849684 | 12 | ; GCC is distributed in the hope that it will be useful, |
22d46b2e JL |
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 | ||
748086b7 JJ |
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. | |
c82af016 | 20 | |
748086b7 JJ |
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/>. | |
22d46b2e | 25 | |
aee8f532 | 26 | #if !defined(__pro__) && !defined(__rtems__) |
22d46b2e JL |
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 | |
9e18f575 | 33 | .SUBSPA $MILLICODE$,QUAD=0,ALIGN=8,ACCESS=44,SORT=8 |
aee8f532 | 34 | #endif |
22d46b2e | 35 | .IMPORT $$dyncall,MILLICODE |
aee8f532 | 36 | #if !defined(__pro__) && !defined(__rtems__) |
22d46b2e JL |
37 | .SPACE $TEXT$ |
38 | .SUBSPA $CODE$ | |
aee8f532 VM |
39 | #else |
40 | .text | |
41 | #endif | |
22d46b2e JL |
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 | |
a63c3ebc | 50 | .CALLINFO |
22d46b2e | 51 | .ENTRY |
a63c3ebc | 52 | ; Our return address comes in %r31, not %r2! |
d2d28085 | 53 | stw %r31,-8(%r30) |
a63c3ebc RK |
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) | |
22d46b2e | 65 | copy %r31,%r2 |
d2d28085 | 66 | ldw -8(%r30),%r2 |
a63c3ebc RK |
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) | |
22d46b2e JL |
73 | .EXIT |
74 | .PROCEND |