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

[ghc-hetmet.git] / ghc / rts / gmp / mpn / vax / addmul_1.s

diff --git a/ghc/rts/gmp/mpn/vax/addmul_1.s b/ghc/rts/gmp/mpn/vax/addmul_1.s
index 746d95b..379061d 100644 (file)
--- a/ghc/rts/gmp/mpn/vax/addmul_1.s
+++ b/ghc/rts/gmp/mpn/vax/addmul_1.s
@@ -1,21 +1,21 @@
-# VAX __mpn_addmul_1 -- Multiply a limb vector with a limb and add
+# VAX __gmpn_addmul_1 -- Multiply a limb vector with a limb and add
 # the result to a second limb vector.
 
-# Copyright (C) 1992, 1994 Free Software Foundation, Inc.
+# Copyright (C) 1992, 1994, 1996, 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.
@@ -29,8 +29,8 @@
 
 .text
        .align 1
-.globl ___mpn_addmul_1
-___mpn_addmul_1:
+.globl ___gmpn_addmul_1
+___gmpn_addmul_1:
        .word   0xfc0
        movl    12(ap),r4
        movl    8(ap),r8
@@ -60,7 +60,7 @@ L1p1: emul    r1,r6,$0,r10
        addl2   r10,(r9)+
        adwc    $0,r11
 
-       jsobgtr r7,Loop1
+       sobgtr  r7,Loop1
        movl    r11,r0
        ret
 
@@ -77,7 +77,7 @@ L1n1: emul    r1,r6,$0,r10
        addl2   r10,(r9)+
        adwc    $0,r11
 
-       jsobgtr r7,Loop1
+       sobgtr  r7,Loop1
        movl    r11,r0
        ret
 
@@ -104,7 +104,7 @@ L2p1:       emul    r1,r6,$0,r10
        addl2   r10,(r9)+
        adwc    $0,r11
 
-       jsobgtr r7,Loop2
+       sobgtr  r7,Loop2
        movl    r11,r0
        ret
 
@@ -121,6 +121,6 @@ L2n1:       emul    r1,r6,$0,r10
        addl2   r10,(r9)+
        adwc    r1,r11
 
-       jsobgtr r7,Loop2
+       sobgtr  r7,Loop2
        movl    r11,r0
        ret