X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fgmp%2Fmpn%2Fa29k%2Fsubmul_1.s;fp=ghc%2Frts%2Fgmp%2Fmpn%2Fa29k%2Fsubmul_1.s;h=ef97d8d4e5873c254eb226f2e20c56615cda891b;hb=e72806f1683fc7acf7bd10885e8e45ff06d790f1;hp=ca2ef72a9951c4c74d6f917d2097267da89f8000;hpb=a6c4cc3666b15a6392279d492f87861c1f18b2de;p=ghc-hetmet.git diff --git a/ghc/rts/gmp/mpn/a29k/submul_1.s b/ghc/rts/gmp/mpn/a29k/submul_1.s index ca2ef72..ef97d8d 100644 --- a/ghc/rts/gmp/mpn/a29k/submul_1.s +++ b/ghc/rts/gmp/mpn/a29k/submul_1.s @@ -1,21 +1,21 @@ -; 29000 __mpn_submul_1 -- Multiply a limb vector with a single limb and +; 29000 __gmpn_submul_1 -- Multiply a limb vector with a single limb and ; subtract the product from 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_submul_1 + .global ___gmpn_submul_1 .word 0x60000 -___mpn_submul_1: +___gmpn_submul_1: sub lr4,lr4,8 jmpt lr4,Ltail const gr120,0 ; init cylimb reg