X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fgmp%2Fmpn%2Fvax%2Fsubmul_1.s;fp=ghc%2Frts%2Fgmp%2Fmpn%2Fvax%2Fsubmul_1.s;h=be42286935735ac0174ea604c18af54c9d8a8efc;hb=e72806f1683fc7acf7bd10885e8e45ff06d790f1;hp=c473937caf95bd70045cf22a17000bbcd7723851;hpb=a6c4cc3666b15a6392279d492f87861c1f18b2de;p=ghc-hetmet.git

diff --git a/ghc/rts/gmp/mpn/vax/submul_1.s b/ghc/rts/gmp/mpn/vax/submul_1.s
index c473937..be42286 100644
--- a/ghc/rts/gmp/mpn/vax/submul_1.s
+++ b/ghc/rts/gmp/mpn/vax/submul_1.s
@@ -1,21 +1,21 @@
-# VAX __mpn_submul_1 -- Multiply a limb vector with a limb and subtract
+# VAX __gmpn_submul_1 -- Multiply a limb vector with a limb and subtract
 # the result from 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_submul_1
-___mpn_submul_1:
+.globl ___gmpn_submul_1
+___gmpn_submul_1:
 	.word	0xfc0
 	movl	12(ap),r4
 	movl	8(ap),r8
@@ -60,7 +60,7 @@ L1p1:	emul	r1,r6,$0,r10
 	subl2	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
 	subl2	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
 	subl2	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
 	subl2	r10,(r9)+
 	adwc	r1,r11
 
-	jsobgtr	r7,Loop2
+	sobgtr	r7,Loop2
 	movl	r11,r0
 	ret