diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-07-05 21:52:40 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-07-05 21:52:40 +0000 |
| commit | fdf1cd0399158308769fcb2ab7e46e215a68d865 (patch) | |
| tree | f6681f1e4c419db48133e66e2279255b6d4cb17e /rts/gmp/mpn/pyr/addmul_1.s | |
| parent | e552cfc427d2734b9a9629f2ab1d22f493e775f6 (diff) | |
| download | haskell-fdf1cd0399158308769fcb2ab7e46e215a68d865.tar.gz | |
Update the in-tree GMP; fixes trac #832
gmp is now in a top-level directory and we only have the tarball in the
darcs repo. It gets untarred if it is needed.
Diffstat (limited to 'rts/gmp/mpn/pyr/addmul_1.s')
| -rw-r--r-- | rts/gmp/mpn/pyr/addmul_1.s | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/rts/gmp/mpn/pyr/addmul_1.s b/rts/gmp/mpn/pyr/addmul_1.s deleted file mode 100644 index 65c3f8f008..0000000000 --- a/rts/gmp/mpn/pyr/addmul_1.s +++ /dev/null @@ -1,45 +0,0 @@ -# Pyramid __gmpn_addmul_1 -- Multiply a limb vector with a limb and add -# the result to a second limb vector. - -# Copyright (C) 1995, 2000 Free Software Foundation, Inc. - -# This file is part of the GNU MP Library. - -# The GNU MP Library is free software; you can redistribute it and/or 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. - -# 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 Lesser General Public -# License for more details. - -# You should have received a copy of the GNU Lesser 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. - -.text - .align 2 -.globl ___gmpn_addmul_1 -___gmpn_addmul_1: - mova (pr0)[pr2*4],pr0 - mova (pr1)[pr2*4],pr1 - mnegw pr2,pr2 - movw $0,tr3 - -Loop: movw (pr1)[pr2*4],tr1 - uemul pr3,tr0 - addw tr3,tr1 - movw $0,tr3 - addwc tr0,tr3 - movw (pr0)[pr2*0x4],tr0 - addw tr0,tr1 - addwc $0,tr3 - movw tr1,(pr0)[pr2*4] - addw $1,pr2 - bne Loop - - movw tr3,pr0 - ret |