1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374 |
- ; 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-2022 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
|