| ; Subroutines for calling unbound dynamic functions from within GDB for HPPA. | |
| ; Subroutines for out of line prologues and epilogues on for the HPPA | |
| ; Copyright (C) 1994-2026 Free Software Foundation, Inc. | |
| ; This file is part of GCC. | |
| ; GCC 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 3, or (at your option) | |
| ; any later version. | |
| ; GCC 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. | |
| ; Under Section 7 of GPL version 3, you are granted additional | |
| ; permissions described in the GCC Runtime Library Exception, version | |
| ; 3.1, as published by the Free Software Foundation. | |
| ; You should have received a copy of the GNU General Public License and | |
| ; a copy of the GCC Runtime Library Exception along with this program; | |
| ; see the files COPYING3 and COPYING.RUNTIME respectively. If not, see | |
| ; <http://www.gnu.org/licenses/>. | |
| #if !defined(__pro__) && !defined(__rtems__) | |
| .SPACE $PRIVATE$ | |
| .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31 | |
| .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82 | |
| .SPACE $TEXT$ | |
| .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44 | |
| .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY | |
| .SUBSPA $MILLICODE$,QUAD=0,ALIGN=8,ACCESS=44,SORT=8 | |
| #endif | |
| .IMPORT $$dyncall,MILLICODE | |
| #if !defined(__pro__) && !defined(__rtems__) | |
| .SPACE $TEXT$ | |
| .SUBSPA $CODE$ | |
| #else | |
| .text | |
| #endif | |
| ; Simply call with the address of the desired import stub in %r22 and | |
| ; arguments in the normal place (%r26-%r23 and stack slots). | |
| ; | |
| .align 4 | |
| .EXPORT __gcc_plt_call,ENTRY,PRIV_LEV=3,RTNVAL=GR | |
| __gcc_plt_call | |
| .PROC | |
| .CALLINFO | |
| .ENTRY | |
| ; Our return address comes in %r31, not %r2! | |
| stw %r31,-8(%r30) | |
| ; An inline version of dyncall so we don't have to worry | |
| ; about long calls to millicode, PIC and other complexities. | |
| bb,>=,n %r22,30,L$foo | |
| depi 0,31,2,%r22 | |
| ldw 0(%r22),%r21 | |
| ldw 4(%r22),%r19 | |
| L$foo | |
| ldsid (%r21),%r1 | |
| mtsp %r1,%sr0 | |
| ble 0(%sr0,%r21) | |
| copy %r31,%r2 | |
| ldw -8(%r30),%r2 | |
| ; We're going to be returning to a stack address, so we | |
| ; need to do an intra-space return. | |
| ldsid (%rp),%r1 | |
| mtsp %r1,%sr0 | |
| be,n 0(%sr0,%rp) | |
| .EXIT | |
| .PROCEND |