* sysdeps/i386/asm-syntax.h (R, MEM, MEM_DISP, MEM_INDEX,
[kopensolaris-gnu/glibc.git] / sysdeps / i386 / i586 / mul_1.S
index 2b7258e..1910c66 100644 (file)
@@ -1,78 +1,79 @@
 /* Pentium __mpn_mul_1 -- Multiply a limb vector with a limb and store
    the result in a second limb vector.
+   Copyright (C) 1992, 94, 96, 97, 98, 00 Free Software Foundation, Inc.
+   This file is part of the GNU MP Library.
 
-Copyright (C) 1992, 1994 Free Software Foundation, Inc.
+   The GNU MP Library is free software; you can redistribute it and/or modify
+   it under the terms of the GNU Library General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or (at your
+   option) any later version.
 
-This file is part of the GNU MP Library.
+   The GNU MP Library is distributed in the hope that it will be useful, but
+   WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
+   License for more details.
 
-The GNU MP Library is free software; you can redistribute it and/or modify
-it under the terms of the GNU Library General Public License as published by
-the Free Software Foundation; either version 2 of the License, or (at your
-option) any later version.
-
-The GNU MP Library is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
-License for more details.
-
-You should have received a copy of the GNU Library General Public License
-along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
-the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
-
-/*
-   INPUT PARAMETERS
-   res_ptr     (sp + 4)
-   s1_ptr      (sp + 8)
-   size                (sp + 12)
-   s2_limb     (sp + 16)
-*/
+   You should have received a copy of the GNU Library General Public License
+   along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
+   the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+   MA 02111-1307, USA. */
 
 #include "sysdep.h"
 #include "asm-syntax.h"
+#include "bp-asm.h"
+
+#define PARMS  LINKAGE+16      /* space for 4 saved regs */
+#define RES    PARMS
+#define S1     RES+PTR_SIZE
+#define SIZE   S1+PTR_SIZE
+#define S2LIMB SIZE+4
 
 #define res_ptr edi
 #define s1_ptr esi
 #define size ecx
 #define s2_limb ebp
 
-       TEXT
-       ALIGN (3)
-       GLOBL   C_SYMBOL_NAME(__mpn_mul_1)
-C_SYMBOL_NAME(__mpn_mul_1:)
-
-       INSN1(push,l    ,R(edi))
-       INSN1(push,l    ,R(esi))
-       INSN1(push,l    ,R(ebx))
-       INSN1(push,l    ,R(ebp))
-
-       INSN2(mov,l     ,R(res_ptr),MEM_DISP(esp,20))
-       INSN2(mov,l     ,R(s1_ptr),MEM_DISP(esp,24))
-       INSN2(mov,l     ,R(size),MEM_DISP(esp,28))
-       INSN2(mov,l     ,R(s2_limb),MEM_DISP(esp,32))
-
-       INSN2(lea,l     ,R(res_ptr),MEM_INDEX(res_ptr,size,4))
-       INSN2(lea,l     ,R(s1_ptr),MEM_INDEX(s1_ptr,size,4))
-       INSN1(neg,l     ,R(size))
-       INSN2(xor,l     ,R(edx),R(edx))
+       .text
+ENTRY(__mpn_mul_1)
+       ENTER
+
+       pushl   %edi
+       pushl   %esi
+       pushl   %ebx
+       pushl   %ebp
+
+       movl    RES(%esp), %res_ptr
+       movl    S1(%esp), %s1_ptr
+       movl    SIZE(%esp), %size
+       movl    S2LIMB(%esp), %s2_limb
+
+       leal    (%res_ptr,%size,4), %res_ptr
+       leal    (%s1_ptr,%size,4), %s1_ptr
+       negl    %size
+       xorl    %ebx, %ebx
        ALIGN (3)
-Loop:
-       INSN2(mov,l     ,R(ebx),R(edx))
-       INSN2(mov,l     ,R(eax),MEM_INDEX(s1_ptr,size,4))
 
-       INSN1(mul,l     ,R(s2_limb))
+L(oop):        adcl    $0, %ebx
+       movl    (%s1_ptr,%size,4), %eax
+
+       mull    %s2_limb
 
-       INSN2(add,l     ,R(eax),R(ebx))
+       addl    %eax, %ebx
 
-       INSN2(adc,l     ,R(edx),$0)
-       INSN2(mov,l     ,MEM_INDEX(res_ptr,size,4),R(eax))
+       movl    %ebx, (%res_ptr,%size,4)
+       incl    %size
 
-       INSN1(inc,l     ,R(size))
-       INSN1(jnz,      ,Loop)
+       movl    %edx, %ebx
+       jnz     L(oop)
 
+       adcl    $0, %ebx
+       movl    %ebx, %eax
+       popl    %ebp
+       popl    %ebx
+       popl    %esi
+       popl    %edi
 
-       INSN2(mov,l     ,R(eax),R(edx))
-       INSN1(pop,l     ,R(ebp))
-       INSN1(pop,l     ,R(ebx))
-       INSN1(pop,l     ,R(esi))
-       INSN1(pop,l     ,R(edi))
+       LEAVE
        ret
+#undef size
+END(__mpn_mul_1)