Reorganisation of the source tree
[ghc-hetmet.git] / rts / gmp / mpn / x86 / umul.asm
1 dnl  mpn_umul_ppmm -- 1x1->2 limb multiplication
2
3 dnl  Copyright (C) 1999, 2000 Free Software Foundation, Inc.
4 dnl 
5 dnl  This file is part of the GNU MP Library.
6 dnl 
7 dnl  The GNU MP Library is free software; you can redistribute it and/or
8 dnl  modify it under the terms of the GNU Lesser General Public License as
9 dnl  published by the Free Software Foundation; either version 2.1 of the
10 dnl  License, or (at your option) any later version.
11 dnl 
12 dnl  The GNU MP Library is distributed in the hope that it will be useful,
13 dnl  but WITHOUT ANY WARRANTY; without even the implied warranty of
14 dnl  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15 dnl  Lesser General Public License for more details.
16 dnl 
17 dnl  You should have received a copy of the GNU Lesser General Public
18 dnl  License along with the GNU MP Library; see the file COPYING.LIB.  If
19 dnl  not, write to the Free Software Foundation, Inc., 59 Temple Place -
20 dnl  Suite 330, Boston, MA 02111-1307, USA.
21
22
23 include(`../config.m4')
24
25
26 C mp_limb_t mpn_umul_ppmm (mp_limb_t *lowptr, mp_limb_t m1, mp_limb_t m2);
27 C
28
29 defframe(PARAM_M2,    12)
30 defframe(PARAM_M1,     8)
31 defframe(PARAM_LOWPTR, 4)
32
33         TEXT
34         ALIGN(8)
35 PROLOGUE(mpn_umul_ppmm)
36 deflit(`FRAME',0)
37         movl    PARAM_LOWPTR, %ecx
38         movl    PARAM_M1, %eax
39         mull    PARAM_M2
40         movl    %eax, (%ecx)
41         movl    %edx, %eax
42         ret
43 EPILOGUE()