X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fgmp%2Fmpn%2Fa29k%2Flshift.s;fp=ghc%2Frts%2Fgmp%2Fmpn%2Fa29k%2Flshift.s;h=93e19171270699b470dd48c101ac35ccdaaa2e73;hb=e72806f1683fc7acf7bd10885e8e45ff06d790f1;hp=7554e2cbb3a022696a3bb636f7991a8d49455903;hpb=a6c4cc3666b15a6392279d492f87861c1f18b2de;p=ghc-hetmet.git diff --git a/ghc/rts/gmp/mpn/a29k/lshift.s b/ghc/rts/gmp/mpn/a29k/lshift.s index 7554e2c..93e1917 100644 --- a/ghc/rts/gmp/mpn/a29k/lshift.s +++ b/ghc/rts/gmp/mpn/a29k/lshift.s @@ -1,20 +1,20 @@ -; 29000 __mpn_lshift -- +; 29000 __gmpn_lshift -- -; 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. @@ -32,9 +32,9 @@ .sect .lit,lit .text .align 4 - .global ___mpn_lshift + .global ___gmpn_lshift .word 0x60000 -___mpn_lshift: +___gmpn_lshift: sll gr116,lr4,2 add lr3,gr116,lr3 add lr2,gr116,lr2