Subversion Repositories openrisc_me

;  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, 1995, 1996, 2009 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

;  .

#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 4(%r22),%r19

        ldw 0(%r22),%r22

L$foo

        ldsid (%r22),%r1

        mtsp %r1,%sr0

        ble 0(%sr0,%r22)

        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