gcc/config/pa/lib2funcs.asm

   1 ;  Subroutines for calling unbound dynamic functions from within GDB for HPPA.
   2 ;  Copyright (C) 1994 Free Software Foundation, Inc.
   3
   4 ;  This file is part of GNU CC.
   5
   6 ;  GNU CC is free software; you can redistribute it and/or modify
   7 ;  it under the terms of the GNU General Public License as published by
   8 ;  the Free Software Foundation; either version 2, or (at your option)
   9 ;  any later version.
  10
  11 ;  GNU CC is distributed in the hope that it will be useful,
  12 ;  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;  GNU General Public License for more details.
  15
  16 ;  You should have received a copy of the GNU General Public License
  17 ;  along with GNU CC; see the file COPYING.  If not, write to
  18 ;  the Free Software Foundation, 59 Temple Place - Suite 330,
  19 ;  Boston, MA 02111-1307, USA.
  20
  21         .SPACE $PRIVATE$
  22         .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
  23         .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
  24         .SPACE $TEXT$
  25         .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
  26         .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
  27         .IMPORT $$dyncall,MILLICODE
  28 ; gcc_compiled.:
  29         .SPACE $TEXT$
  30         .SUBSPA $CODE$
  31
  32 ; Simply call with the address of the desired import stub in %r22 and
  33 ; arguments in the normal place (%r26-%r23 and stack slots).
  34 ;
  35         .align 4
  36         .EXPORT __gcc_plt_call,ENTRY,PRIV_LEV=3,RTNVAL=GR
  37 __gcc_plt_call
  38         .PROC
  39         .CALLINFO FRAME=64,CALLS,SAVE_RP
  40         .ENTRY
  41         stw %r2,-8(0,%r30)
  42         bl $$dyncall,%r31
  43         copy %r31,%r2
  44         ldw -8(0,%r30),%r2
  45         bv,n 0(%r2)
  46         .EXIT
  47         .PROCEND