X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fgmp%2Fmpn%2Fa29k%2Fmul_1.s;fp=ghc%2Frts%2Fgmp%2Fmpn%2Fa29k%2Fmul_1.s;h=6bcf7ce0cfc719e706411404903e31e5c0f7a8eb;hb=e72806f1683fc7acf7bd10885e8e45ff06d790f1;hp=5d120f48ef9d50bd4ef268c49608dd3412eb9860;hpb=a6c4cc3666b15a6392279d492f87861c1f18b2de;p=ghc-hetmet.git diff --git a/ghc/rts/gmp/mpn/a29k/mul_1.s b/ghc/rts/gmp/mpn/a29k/mul_1.s index 5d120f4..6bcf7ce 100644 --- a/ghc/rts/gmp/mpn/a29k/mul_1.s +++ b/ghc/rts/gmp/mpn/a29k/mul_1.s @@ -1,21 +1,21 @@ -; 29000 __mpn_mul_1 -- Multiply a limb vector with a single limb and +; 29000 __gmpn_mul_1 -- Multiply a limb vector with a single limb and ; store the product in a second limb vector. -; Copyright (C) 1992, 1994 Free Software Foundation, Inc. +; Copyright (C) 1992, 1994, 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 Library General Public License as published by -; the Free Software Foundation; either version 2 of the License, or (at your +; 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 Library General Public +; 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 Library General Public License +; 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. @@ -31,9 +31,9 @@ .sect .lit,lit .text .align 4 - .global ___mpn_mul_1 + .global ___gmpn_mul_1 .word 0x60000 -___mpn_mul_1: +___gmpn_mul_1: sub lr4,lr4,8 jmpt lr4,Ltail const gr120,0 ; init cylimb reg