Return to aors_n.asm CVS log

Up to [local] / OpenXM_contrib / gmp / mpn / m68k

Annotation of OpenXM_contrib/gmp/mpn/m68k/aors_n.asm, Revision 1.1.1.1

1.1       ohara       1: dnl  mc68020 mpn_add_n, mpn_sub_n -- add or subtract limb vectors
                      2: dnl
                      3: dnl        cycles/limb
                      4: dnl  68040:    4.5
                      5:
                      6: dnl  Copyright 1992, 1994, 1996, 1999, 2000, 2001 Free Software Foundation,
                      7: dnl  Inc.
                      8: dnl
                      9: dnl  This file is part of the GNU MP Library.
                     10: dnl
                     11: dnl  The GNU MP Library is free software; you can redistribute it and/or
                     12: dnl  modify it under the terms of the GNU Lesser General Public License as
                     13: dnl  published by the Free Software Foundation; either version 2.1 of the
                     14: dnl  License, or (at your option) any later version.
                     15: dnl
                     16: dnl  The GNU MP Library is distributed in the hope that it will be useful,
                     17: dnl  but WITHOUT ANY WARRANTY; without even the implied warranty of
                     18: dnl  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
                     19: dnl  Lesser General Public License for more details.
                     20: dnl
                     21: dnl  You should have received a copy of the GNU Lesser General Public
                     22: dnl  License along with the GNU MP Library; see the file COPYING.LIB.  If
                     23: dnl  not, write to the Free Software Foundation, Inc., 59 Temple Place -
                     24: dnl  Suite 330, Boston, MA 02111-1307, USA.
                     25:
                     26: include(`../config.m4')
                     27:
                     28:
                     29: ifdef(`OPERATION_add_n',`
                     30:   define(M4_inst,       addxl)
                     31:   define(M4_function_n, mpn_add_n)
                     32: ',`ifdef(`OPERATION_sub_n',`
                     33:   define(M4_inst,       subxl)
                     34:   define(M4_function_n, mpn_sub_n)
                     35: ',
                     36: `m4_error(`Need OPERATION_add_n or OPERATION_sub_n
                     37: ')')')
                     38:
                     39: MULFUNC_PROLOGUE(mpn_addmul_1 mpn_submul_1)
                     40:
                     41:
                     42: C INPUT PARAMETERS
                     43: C res_ptr      (sp + 4)
                     44: C s1_ptr       (sp + 8)
                     45: C s2_ptr       (sp + 16)
                     46: C size         (sp + 12)
                     47:
                     48:
                     49: PROLOGUE(M4_function_n)
                     50:
                     51: C Save used registers on the stack.
                     52:        movel   d2, M(-,sp)
                     53:        movel   a2, M(-,sp)
                     54:
                     55: C Copy the arguments to registers.  Better use movem?
                     56:        movel   M(sp,12), a2
                     57:        movel   M(sp,16), a0
                     58:        movel   M(sp,20), a1
                     59:        movel   M(sp,24), d2
                     60:
                     61:        eorw    #1, d2
                     62:        lsrl    #1, d2
                     63:        bcc     L(L1)
                     64:        subql   #1, d2  C clears cy as side effect
                     65:
                     66: L(Loop):
                     67:        movel   M(a0,+), d0
                     68:        movel   M(a1,+), d1
                     69:        M4_inst d1, d0
                     70:        movel   d0, M(a2,+)
                     71: L(L1): movel   M(a0,+), d0
                     72:        movel   M(a1,+), d1
                     73:        M4_inst d1, d0
                     74:        movel   d0, M(a2,+)
                     75:
                     76:        dbf     d2, L(Loop)             C loop until 16 lsb of %4 == -1
                     77:        subxl   d0, d0                  C d0 <= -cy; save cy as 0 or -1 in d0
                     78:        subl    #0x10000, d2
                     79:        bcs     L(L2)
                     80:        addl    d0, d0                  C restore cy
                     81:        bra     L(Loop)
                     82:
                     83: L(L2):
                     84:        negl    d0
                     85:
                     86: C Restore used registers from stack frame.
                     87:        movel   M(sp,+), a2
                     88:        movel   M(sp,+), d2
                     89:
                     90:        rts
                     91:
                     92: EPILOGUE(M4_function_n)