X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fgmp%2Fmpn%2Fvax%2Frshift.s;fp=rts%2Fgmp%2Fmpn%2Fvax%2Frshift.s;h=0000000000000000000000000000000000000000;hb=fdf1cd0399158308769fcb2ab7e46e215a68d865;hp=515813208df839b0b1d2f7062f1f47b54be84eca;hpb=e552cfc427d2734b9a9629f2ab1d22f493e775f6;p=ghc-hetmet.git

diff --git a/rts/gmp/mpn/vax/rshift.s b/rts/gmp/mpn/vax/rshift.s
deleted file mode 100644
index 5158132..0000000
--- a/rts/gmp/mpn/vax/rshift.s
+++ /dev/null
@@ -1,56 +0,0 @@
-# VAX __gmpn_rshift -- right shift.
-
-# Copyright (C) 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 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
-# rptr		(sp + 4)
-# sptr		(sp + 8)
-# size		(sp + 12)
-# cnt		(sp + 16)
-# r0=retval r1=size r2,r3=itmp r4,r5=otmp	call-used registers
-# r6=sptr r7=rptr r8=cnt r9 r10 r11		call-saved registers
-
-.text
-	.align 1
-.globl ___gmpn_rshift
-___gmpn_rshift:
-	.word	0x1c0
-	movl	4(ap),r7
-	movl	8(ap),r6
-	movl	12(ap),r1
-	movl	16(ap),r8
-
-	movl	(r6)+,r2
-	subl3	r8,$32,r8
-	ashl	r8,r2,r0
-	decl	r1
-	jeql	Lend
-
-Loop:	movl	(r6)+,r3
-	ashq	r8,r2,r4
-	movl	r5,(r7)+
-	movl	r3,r2
-	jsobgtr	r1,Loop
-
-Lend:	clrl	r3
-	ashq	r8,r2,r4
-	movl	r5,(r7)
-	ret