libgcc/config/pa/lib2funcs.S

   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-2024 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 0(%r22),%r21
  60         ldw 4(%r22),%r19
  61 L$foo
  62         ldsid (%r21),%r1
  63         mtsp %r1,%sr0
  64         ble 0(%sr0,%r21)
  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