version 1.1.1.1, 2000/09/09 14:12:42 |
version 1.1.1.2, 2003/08/25 16:06:27 |
|
|
dnl AMD K6 mpn_addmul_1/mpn_submul_1 -- add or subtract mpn multiple. |
dnl AMD K6 mpn_addmul_1/mpn_submul_1 -- add or subtract mpn multiple. |
dnl |
|
dnl K6: 7.65 to 8.5 cycles/limb (at 16 limbs/loop and depending on the data), |
|
dnl PIC adds about 6 cycles at the start. |
|
|
|
|
dnl Copyright 1999, 2000, 2001, 2002 Free Software Foundation, Inc. |
dnl Copyright (C) 1999, 2000 Free Software Foundation, Inc. |
|
dnl |
dnl |
dnl This file is part of the GNU MP Library. |
dnl This file is part of the GNU MP Library. |
dnl |
dnl |
Line 23 dnl License along with the GNU MP Library; see the fi |
|
Line 19 dnl License along with the GNU MP Library; see the fi |
|
dnl not, write to the Free Software Foundation, Inc., 59 Temple Place - |
dnl not, write to the Free Software Foundation, Inc., 59 Temple Place - |
dnl Suite 330, Boston, MA 02111-1307, USA. |
dnl Suite 330, Boston, MA 02111-1307, USA. |
|
|
|
|
include(`../config.m4') |
include(`../config.m4') |
|
|
|
|
|
C K6: 7.65 to 8.5 cycles/limb (at 16 limbs/loop and depending on the data), |
|
C PIC adds about 6 cycles at the start. |
|
|
|
|
|
|
dnl K6: large multpliers small multpliers |
dnl K6: large multpliers small multpliers |
dnl UNROLL_COUNT cycles/limb cycles/limb |
dnl UNROLL_COUNT cycles/limb cycles/limb |
dnl 4 9.5 7.78 |
dnl 4 9.5 7.78 |
Line 153 defframe(PARAM_SIZE, 12) |
|
Line 153 defframe(PARAM_SIZE, 12) |
|
defframe(PARAM_SRC, 8) |
defframe(PARAM_SRC, 8) |
defframe(PARAM_DST, 4) |
defframe(PARAM_DST, 4) |
|
|
.text |
TEXT |
ALIGN(32) |
ALIGN(32) |
|
|
PROLOGUE(M4_function_1c) |
PROLOGUE(M4_function_1c) |
pushl %esi |
pushl %esi |
deflit(`FRAME',4) |
deflit(`FRAME',4) |
movl PARAM_CARRY, %esi |
movl PARAM_CARRY, %esi |
jmp LF(M4_function_1,start_nc) |
jmp L(start_nc) |
EPILOGUE() |
EPILOGUE() |
|
|
PROLOGUE(M4_function_1) |
PROLOGUE(M4_function_1) |
|
|
|
|
ifdef(`PIC',` |
ifdef(`PIC',` |
L(pic_calc): |
L(pic_calc): |
C See README.family about old gas bugs |
C See mpn/x86/README about old gas bugs |
leal (%edx,%ecx,1), %edx |
leal (%edx,%ecx,1), %edx |
addl $L(entry)-L(here), %edx |
addl $L(entry)-L(here), %edx |
addl (%esp), %edx |
addl (%esp), %edx |