X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fgmp%2Fmpn%2Fsparc32%2Fv8%2Fmul_1.asm;fp=ghc%2Frts%2Fgmp%2Fmpn%2Fsparc32%2Fv8%2Fmul_1.asm;h=0000000000000000000000000000000000000000;hb=0065d5ab628975892cea1ec7303f968c3338cbe1;hp=801247553aba4f1b9f4b2977e444971c62b984e4;hpb=28a464a75e14cece5db40f2765a29348273ff2d2;p=ghc-hetmet.git

diff --git a/ghc/rts/gmp/mpn/sparc32/v8/mul_1.asm b/ghc/rts/gmp/mpn/sparc32/v8/mul_1.asm
deleted file mode 100644
index 8012475..0000000
--- a/ghc/rts/gmp/mpn/sparc32/v8/mul_1.asm
+++ /dev/null
@@ -1,103 +0,0 @@
-dnl  SPARC v8 mpn_mul_1 -- Multiply a limb vector with a single limb and
-dnl  store the product in a second limb vector.
-
-dnl  Copyright (C) 1992, 1994, 1995, 2000 Free Software Foundation, Inc.
-
-dnl  This file is part of the GNU MP Library.
-
-dnl  The GNU MP Library is free software; you can redistribute it and/or modify
-dnl  it under the terms of the GNU Lesser General Public License as published
-dnl  by the Free Software Foundation; either version 2.1 of the License, or (at
-dnl  your option) any later version.
-
-dnl  The GNU MP Library is distributed in the hope that it will be useful, but
-dnl  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-dnl  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
-dnl  License for more details.
-
-dnl  You should have received a copy of the GNU Lesser General Public License
-dnl  along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
-dnl  the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
-dnl  MA 02111-1307, USA.
-
-
-include(`../config.m4')
-
-C INPUT PARAMETERS
-C res_ptr	o0
-C s1_ptr	o1
-C size		o2
-C s2_limb	o3
-
-ASM_START()
-PROLOGUE(mpn_mul_1)
-	sll	%o2,4,%g1
-	and	%g1,(4-1)<<4,%g1
-ifdef(`PIC',
-`	mov	%o7,%g4		C Save return address register
-0:	call	1f
-	add	%o7,L(1)-0b,%g3
-1:	mov	%g4,%o7		C Restore return address register
-',
-`	sethi	%hi(L(1)),%g3
-	or	%g3,%lo(L(1)),%g3
-')
-	jmp	%g3+%g1
-	ld	[%o1+0],%o4	C 1
-L(1):
-L(L00):	add	%o0,-4,%o0
-	add	%o1,-4,%o1
-	b	L(loop00)	C 4, 8, 12, ...
-	orcc	%g0,%g0,%g2
-L(L01):	b	L(loop01)	C 1, 5, 9, ...
-	orcc	%g0,%g0,%g2
-	nop
-	nop
-L(L10):	add	%o0,-12,%o0	C 2, 6, 10, ...
-	add	%o1,4,%o1
-	b	L(loop10)
-	orcc	%g0,%g0,%g2
-	nop
-L(L11):	add	%o0,-8,%o0	C 3, 7, 11, ...
-	add	%o1,-8,%o1
-	b	L(loop11)
-	orcc	%g0,%g0,%g2
-
-L(loop):
-	addcc	%g3,%g2,%g3	C 1
-	ld	[%o1+4],%o4	C 2
-	st	%g3,[%o0+0]	C 1
-	rd	%y,%g2		C 1
-L(loop00):
-	umul	%o4,%o3,%g3	C 2
-	addxcc	%g3,%g2,%g3	C 2
-	ld	[%o1+8],%o4	C 3
-	st	%g3,[%o0+4]	C 2
-	rd	%y,%g2		C 2
-L(loop11):
-	umul	%o4,%o3,%g3	C 3
-	addxcc	%g3,%g2,%g3	C 3
-	ld	[%o1+12],%o4	C 4
-	add	%o1,16,%o1
-	st	%g3,[%o0+8]	C 3
-	rd	%y,%g2		C 3
-L(loop10):
-	umul	%o4,%o3,%g3	C 4
-	addxcc	%g3,%g2,%g3	C 4
-	ld	[%o1+0],%o4	C 1
-	st	%g3,[%o0+12]	C 4
-	add	%o0,16,%o0
-	rd	%y,%g2		C 4
-	addx	%g0,%g2,%g2
-L(loop01):
-	addcc	%o2,-4,%o2
-	bg	L(loop)
-	umul	%o4,%o3,%g3	C 1
-
-	addcc	%g3,%g2,%g3	C 4
-	st	%g3,[%o0+0]	C 4
-	rd	%y,%g2		C 4
-
-	retl
-	addx	%g0,%g2,%o0
-EPILOGUE(mpn_mul_1)