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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [config/] [sparc/] [lb1spl.asm] - Rev 433

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

/* This is an assembly language implementation of mulsi3, divsi3, and modsi3
   for the sparclite processor.

   These routines are all from the SPARClite User's Guide, slightly edited
   to match the desired calling convention, and also to optimize them.  */

#ifdef L_udivsi3
.text
        .align 4
        .global .udiv
        .proc   04
.udiv:
        wr      %g0,%g0,%y      ! Not a delayed write for sparclite
        tst     %g0
        divscc  %o0,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        retl
        divscc  %g1,%o1,%o0
#endif

#ifdef L_umodsi3
.text
        .align 4
        .global .urem
        .proc   04
.urem:
        wr      %g0,%g0,%y      ! Not a delayed write for sparclite
        tst     %g0
        divscc  %o0,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        divscc  %g1,%o1,%g1
        bl 1f
        rd      %y,%o0
        retl
        nop
1:      retl
        add     %o0,%o1,%o0
#endif

#ifdef L_divsi3
.text
        .align 4
        .global .div
        .proc   04
! ??? This routine could be made faster if was optimized, and if it was
! rewritten to only calculate the quotient.
.div:
        wr      %g0,%g0,%y      ! Not a delayed write for sparclite
        mov     %o1,%o4
        tst     %o1
        bl,a    1f
        sub     %g0,%o4,%o4
1:      tst     %o0
        bl,a    2f
        mov     -1,%y
2:      divscc  %o0,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        be      6f
        mov     %y,%o3
        bg      4f
        addcc   %o3,%o4,%g0
        be,a    6f
        mov     %g0,%o3
        tst     %o0
        bl      5f
        tst     %g1
        ba      5f
        add     %o3,%o4,%o3
4:      subcc   %o3,%o4,%g0
        be,a    6f
        mov     %g0,%o3
        tst     %o0
        bge     5f
        tst     %g1
        sub     %o3,%o4,%o3
5:      bl,a    6f
        add     %g1,1,%g1
6:      tst     %o1
        bl,a    7f
        sub     %g0,%g1,%g1
7:      retl
        mov     %g1,%o0         ! Quotient is in %g1.
#endif

#ifdef L_modsi3
.text
        .align 4
        .global .rem
        .proc   04
! ??? This routine could be made faster if was optimized, and if it was
! rewritten to only calculate the remainder.
.rem:
        wr      %g0,%g0,%y      ! Not a delayed write for sparclite
        mov     %o1,%o4
        tst     %o1
        bl,a    1f
        sub     %g0,%o4,%o4
1:      tst     %o0
        bl,a    2f
        mov     -1,%y
2:      divscc  %o0,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        divscc  %g1,%o4,%g1
        be      6f
        mov     %y,%o3
        bg      4f
        addcc   %o3,%o4,%g0
        be,a    6f
        mov     %g0,%o3
        tst     %o0
        bl      5f
        tst     %g1
        ba      5f
        add     %o3,%o4,%o3
4:      subcc   %o3,%o4,%g0
        be,a    6f
        mov     %g0,%o3
        tst     %o0
        bge     5f
        tst     %g1
        sub     %o3,%o4,%o3
5:      bl,a    6f
        add     %g1,1,%g1
6:      tst     %o1
        bl,a    7f
        sub     %g0,%g1,%g1
7:      retl
        mov     %o3,%o0         ! Remainder is in %o3.
#endif

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.