1/* Pentium __mpn_mul_1 -- Multiply a limb vector with a limb and store 2 the result in a second limb vector. 3 Copyright (C) 1992, 94, 96, 97, 98, 00 Free Software Foundation, Inc. 4 This file is part of the GNU MP Library. 5 6 The GNU MP Library is free software; you can redistribute it and/or modify 7 it under the terms of the GNU Lesser General Public License as published by 8 the Free Software Foundation; either version 2.1 of the License, or (at your 9 option) any later version. 10 11 The GNU MP Library is distributed in the hope that it will be useful, but 12 WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 13 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public 14 License for more details. 15 16 You should have received a copy of the GNU Lesser General Public License 17 along with the GNU MP Library; see the file COPYING.LIB. If not, write to 18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, 19 MA 02111-1307, USA. */ 20 21#include "sysdep.h" 22#include "asm-syntax.h" 23#include "bp-sym.h" 24#include "bp-asm.h" 25 26#define PARMS LINKAGE+16 /* space for 4 saved regs */ 27#define RES PARMS 28#define S1 RES+PTR_SIZE 29#define SIZE S1+PTR_SIZE 30#define S2LIMB SIZE+4 31 32#define res_ptr edi 33#define s1_ptr esi 34#define size ecx 35#define s2_limb ebx 36 37 .text 38ENTRY (BP_SYM (__mpn_mul_1)) 39 ENTER 40 41 pushl %edi 42 pushl %esi 43 pushl %ebp 44 pushl %ebx 45 46 movl RES(%esp), %res_ptr 47 movl S1(%esp), %s1_ptr 48 movl SIZE(%esp), %size 49 movl S2LIMB(%esp), %s2_limb 50#if __BOUNDED_POINTERS__ 51 shll $2, %size /* convert limbs to bytes */ 52 CHECK_BOUNDS_BOTH_WIDE (%res_ptr, RES(%esp), %size) 53 CHECK_BOUNDS_BOTH_WIDE (%s1_ptr, S1(%esp), %size) 54 shrl $2, %size 55#endif 56 leal (%res_ptr,%size,4), %res_ptr 57 leal (%s1_ptr,%size,4), %s1_ptr 58 negl %size 59 xorl %ebp, %ebp 60 ALIGN (3) 61 62L(oop): adcl $0, %ebp 63 movl (%s1_ptr,%size,4), %eax 64 65 mull %s2_limb 66 67 addl %eax, %ebp 68 69 movl %ebp, (%res_ptr,%size,4) 70 incl %size 71 72 movl %edx, %ebp 73 jnz L(oop) 74 75 adcl $0, %ebp 76 movl %ebp, %eax 77 popl %ebx 78 popl %ebp 79 popl %esi 80 popl %edi 81 82 LEAVE 83 ret 84#undef size 85END (BP_SYM (__mpn_mul_1)) 86