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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [boehm-gc/] [alpha_mach_dep.S] - Rev 780

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

        .arch ev6

        .text
        .align  4
        .globl  GC_push_regs
        .ent    GC_push_regs 2
GC_push_regs:
        ldgp    $gp, 0($27)
        lda     $sp, -16($sp)
        stq     $26, 0($sp)
        .mask   0x04000000, 0
        .frame  $sp, 16, $26, 0

/* $0           integer result                                                */
/* $1-$8        temp regs - not preserved cross calls                         */
/* $9-$15       call saved regs                                               */
/* $16-$21      argument regs - not preserved cross calls                     */
/* $22-$28      temp regs - not preserved cross calls                         */
/* $29          global pointer - not preserved cross calls                    */
/* $30          stack pointer                                                 */

# define call_push(x)                   \
        mov   x, $16;                   \
        jsr   $26, GC_push_one;         \
        ldgp  $gp, 0($26)
        
        call_push($9)
        call_push($10)
        call_push($11)
        call_push($12)
        call_push($13)
        call_push($14)
        call_push($15)

/* $f0-$f1      floating point results                                        */
/* $f2-$f9      call saved regs                                               */
/* $f10-$f30    temp regs - not preserved cross calls                         */

        /* Use the most efficient transfer method for this hardware. */
        /* Bit 1 detects the FIX extension, which includes ftoit. */
        amask   2, $0
        bne     $0, $use_stack

#undef call_push
#define call_push(x)                    \
        ftoit   x, $16;                 \
        jsr     $26, GC_push_one;       \
        ldgp    $gp, 0($26)

        call_push($f2)
        call_push($f3)
        call_push($f4)
        call_push($f5)
        call_push($f6)
        call_push($f7)
        call_push($f8)
        call_push($f9)

        ldq     $26, 0($sp)
        lda     $sp, 16($sp)
        ret     $31, ($26), 1

        .align  4
$use_stack:

#undef call_push
#define call_push(x)                    \
        stt     x, 8($sp);              \
        ldq     $16, 8($sp);            \
        jsr     $26, GC_push_one;       \
        ldgp    $gp, 0($26)

        call_push($f2)
        call_push($f3)
        call_push($f4)
        call_push($f5)
        call_push($f6)
        call_push($f7)
        call_push($f8)
        call_push($f9)

        ldq     $26, 0($sp)
        lda     $sp, 16($sp)
        ret     $31, ($26), 1

        .end    GC_push_regs

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.