X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fgmp%2Fmpn%2Fz8000x%2Fadd_n.s;fp=ghc%2Frts%2Fgmp%2Fmpn%2Fz8000x%2Fadd_n.s;h=0000000000000000000000000000000000000000;hb=0065d5ab628975892cea1ec7303f968c3338cbe1;hp=7f130785c5f00d7e5a0df2a954b8a329d4ebdf2a;hpb=28a464a75e14cece5db40f2765a29348273ff2d2;p=ghc-hetmet.git

diff --git a/ghc/rts/gmp/mpn/z8000x/add_n.s b/ghc/rts/gmp/mpn/z8000x/add_n.s
deleted file mode 100644
index 7f13078..0000000
--- a/ghc/rts/gmp/mpn/z8000x/add_n.s
+++ /dev/null
@@ -1,56 +0,0 @@
-! Z8000 (32 bit limb version) __gmpn_add_n -- Add two limb vectors of equal,
-! non-zero length.
-
-! Copyright (C) 1993, 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 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 Lesser General Public
-! License for more details.
-
-! 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.
-
-
-! INPUT PARAMETERS
-! res_ptr	r7
-! s1_ptr	r6
-! s2_ptr	r5
-! size		r4
-
-! If we are really crazy, we can use push to write a few result words
-! backwards, using push just because it is faster than reg+disp.  We'd
-! then add 2x the number of words written to r7...
-
-	segm
-	.text
-	even
-	global ___gmpn_add_n
-___gmpn_add_n:
-	popl	rr0,@r6
-	popl	rr8,@r5
-	addl	rr0,rr8
-	ldl	@r7,rr0
-	dec	r4
-	jr	eq,Lend
-Loop:	popl	rr0,@r6
-	popl	rr8,@r5
-	adc	r1,r9
-	adc	r0,r8
-	inc	r7,#4
-	ldl	@r7,rr0
-	dec	r4
-	jr	ne,Loop
-Lend:	ld	r2,r4		! use 0 already in r4
-	ld	r3,r4
-	adc	r2,r2
-	ret	t