2008-06-25 03:33:36 -04:00
|
|
|
; Copyright 1999, 2000, 2002 Free Software Foundation, Inc.
|
|
|
|
;
|
2008-07-24 17:14:10 -04:00
|
|
|
; Copyright 2008 Brian Gladman, William Hart
|
2008-06-25 03:33:36 -04:00
|
|
|
;
|
2008-07-24 17:14:10 -04:00
|
|
|
; This file is part of the MPIR Library.
|
|
|
|
;
|
|
|
|
; The MPIR Library is free software; you can redistribute it and/or
|
2008-06-25 03:33:36 -04:00
|
|
|
; modify it under the terms of the GNU Lesser General Public License as
|
|
|
|
; published by the Free Software Foundation; either version 2.1 of the
|
|
|
|
; License, or (at your option) any later version.
|
|
|
|
;
|
2008-07-24 17:14:10 -04:00
|
|
|
; The MPIR Library is distributed in the hope that it will be useful,
|
2008-06-25 03:33:36 -04:00
|
|
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
; Lesser General Public License for more details.
|
|
|
|
;
|
|
|
|
; You should have received a copy of the GNU Lesser General Public
|
2008-07-24 17:14:10 -04:00
|
|
|
; License along with the MPIR Library; see the file COPYING.LIB. If
|
2008-06-25 03:33:36 -04:00
|
|
|
; not, write to the Free Software Foundation, Inc., 51 Franklin Street,
|
|
|
|
; Fifth Floor, Boston, MA 02110-1301, USA.
|
|
|
|
|
|
|
|
; mpn_umul_ppmm -- 1x1->2 limb multiplication
|
|
|
|
;
|
2008-07-23 14:37:20 -04:00
|
|
|
; Calling interface:
|
2008-06-25 03:33:36 -04:00
|
|
|
;
|
|
|
|
; mp_limb_t mpn_umul_ppmm (
|
|
|
|
; mp_limb_t *lowptr, rdi
|
|
|
|
; mp_limb_t m1, rsi
|
|
|
|
; mp_limb_t m2 rdx
|
|
|
|
; );
|
|
|
|
|
2009-03-03 16:40:13 -05:00
|
|
|
%include 'yasm_mac.inc'
|
2008-06-25 03:33:36 -04:00
|
|
|
|
|
|
|
%define low rdi
|
|
|
|
%define m1 rsi
|
2008-07-23 14:37:20 -04:00
|
|
|
%define m2 rdx
|
2008-06-25 03:33:36 -04:00
|
|
|
|
2008-07-23 14:37:20 -04:00
|
|
|
BITS 64
|
2008-06-25 03:33:36 -04:00
|
|
|
|
2008-07-23 14:37:20 -04:00
|
|
|
GLOBAL_FUNC mpn_umul_ppmm
|
2008-06-25 03:33:36 -04:00
|
|
|
mov rax,m1
|
|
|
|
mul m2
|
|
|
|
mov [low],rax
|
|
|
|
mov rax,m1
|
|
|
|
ret
|