[project @ 2000-08-18 15:44:28 by simonmar]

[ghc-hetmet.git] / ghc / rts / gmp / mpn / power / rshift.s

diff --git a/ghc/rts/gmp/mpn/power/rshift.s b/ghc/rts/gmp/mpn/power/rshift.s
index 30d408a..65b3945 100644 (file)
--- a/ghc/rts/gmp/mpn/power/rshift.s
+++ b/ghc/rts/gmp/mpn/power/rshift.s
@@ -1,20 +1,20 @@
-# IBM POWER __mpn_rshift -- 
+# IBM POWER __gmpn_rshift -- 
 
-# Copyright (C) 1992, 1994 Free Software Foundation, Inc.
+# Copyright (C) 1992, 1994, 1999, 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.
@@ -27,17 +27,14 @@
 # cnt          r6
 
        .toc
-       .extern __mpn_rshift[DS]
-       .extern .__mpn_rshift
-.csect [PR]
-       .align 2
-       .globl __mpn_rshift
-       .globl .__mpn_rshift
-       .csect __mpn_rshift[DS]
-__mpn_rshift:
-       .long .__mpn_rshift, TOC[tc0], 0
-       .csect [PR]
-.__mpn_rshift:
+       .globl  __gmpn_rshift
+       .globl  .__gmpn_rshift
+       .csect  __gmpn_rshift[DS]
+__gmpn_rshift:
+       .long   .__gmpn_rshift, TOC[tc0], 0
+       .csect  .text[PR]
+       .align  2
+.__gmpn_rshift:
        sfi     8,6,32
        mtctr   5               # put limb count in CTR loop register
        l       0,0(4)          # read least significant limb