OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.17.0/] [newlib/] [libc/] [machine/] [hppa/] [setjmp.S] - Rev 148

Go to most recent revision | Compare with Previous | Blame | View Log

/* Copyright (c) 1995, 2002 Red Hat Incorporated.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 *    Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 *
 *    Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 *    The name of Red Hat Incorporated may not be used to endorse
 *    or promote products derived from this software without specific
 *    prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL RED HAT INCORPORATED BE LIABLE FOR ANY
 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

/* Note I don't know an easy way to get the FP version into the
   traditional C library and the non-FP version into the soft-float
   library.  Maybe we'll have to have -msoft-float trigger something
   like -DSOFT_FLOAT if this issue ever arises.  */

#include "DEFS.h"

#if 0
        .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
        .IMPORT $global$,DATA
        .IMPORT $$dyncall,MILLICODE
; gcc_compiled.:
#endif
        TEXT_SEGMENT

        .align 4
        .EXPORT setjmp,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR
setjmp
        .PROC
        .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
        .ENTRY
        stwm  %r30,4(%r26)
        stwm  %r2,4(%r26)
        stwm  %r3,4(%r26)
        stwm  %r4,4(%r26)
        stwm  %r5,4(%r26)
        stwm  %r6,4(%r26)
        stwm  %r7,4(%r26)
        stwm  %r8,4(%r26)
        stwm  %r9,4(%r26)
        stwm  %r10,4(%r26)
        stwm  %r11,4(%r26)
        stwm  %r12,4(%r26)
        stwm  %r13,4(%r26)
        stwm  %r14,4(%r26)
        stwm  %r15,4(%r26)
        stwm  %r16,4(%r26)
        stwm  %r17,4(%r26)
        stwm  %r18,4(%r26)
        stwm  %r27,4(%r26)
#ifdef FP
        ; jmp_buf may only have a 4 byte alignment, so handle FP stores
        ; very carefully.
        fstds %fr12,-16(%r30)
        ldw -16(%r30),%r28
        stwm  %r28,4(%r26)
        ldw -12(%r30),%r28
        stwm  %r28,4(%r26) 
        fstds %fr13,-16(%r30)
        ldw -16(%r30),%r28
        stwm  %r28,4(%r26)
        ldw -12(%r30),%r28
        stwm  %r28,4(%r26) 
        fstds %fr14,-16(%r30)
        ldw -16(%r30),%r28
        stwm  %r28,4(%r26)
        ldw -12(%r30),%r28
        stwm  %r28,4(%r26) 
        fstds %fr15,-16(%r30)
        ldw -16(%r30),%r28
        stwm  %r28,4(%r26)
        ldw -12(%r30),%r28
        stwm  %r28,4(%r26) 
#endif

        bv 0(%r2)
        copy %r0,%r28
        .EXIT
        .PROCEND
        .align 4
        .EXPORT longjmp,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,RTNVAL=GR
longjmp
        .PROC
        .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
        .ENTRY
        ldwm 4(%r26),%r30
        ldwm 4(%r26),%r2
        ldwm 4(%r26),%r3
        ldwm 4(%r26),%r4
        ldwm 4(%r26),%r5
        ldwm 4(%r26),%r6
        ldwm 4(%r26),%r7
        ldwm 4(%r26),%r8
        ldwm 4(%r26),%r9
        ldwm 4(%r26),%r10
        ldwm 4(%r26),%r11
        ldwm 4(%r26),%r12
        ldwm 4(%r26),%r13
        ldwm 4(%r26),%r14
        ldwm 4(%r26),%r15
        ldwm 4(%r26),%r16
        ldwm 4(%r26),%r17
        ldwm 4(%r26),%r18
        ldwm 4(%r26),%r27
#ifdef FP
        ldwm 4(%r26),%r28
        stw %r28,-16(%r30)
        ldwm 4(%r26),%r28
        stw %r28,-12(%r30)
        fldds -16(%r30),%fr12
        ldwm 4(%r26),%r28
        stw %r28,-16(%r30)
        ldwm 4(%r26),%r28
        stw %r28,-12(%r30)
        fldds -16(%r30),%fr13
        ldwm 4(%r26),%r28
        stw %r28,-16(%r30)
        ldwm 4(%r26),%r28
        stw %r28,-12(%r30)
        fldds -16(%r30),%fr14
        ldwm 4(%r26),%r28
        stw %r28,-16(%r30)
        ldwm 4(%r26),%r28
        stw %r28,-12(%r30)
        fldds -16(%r30),%fr15
#endif
        comclr,<> %r0,%r25,%r0
        ldi 1,%r25
        bv 0(%r2)
        copy %r25,%r28
        .EXIT
        .PROCEND

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.