Blame mpn/sparc32/ultrasparct1/sub_n.asm

Packit 5c3484
dnl  SPARC T1 32-bit mpn_sub_n.
Packit 5c3484
Packit 5c3484
dnl  Copyright 2010 Free Software Foundation, Inc.
Packit 5c3484
Packit 5c3484
dnl  This file is part of the GNU MP Library.
Packit 5c3484
dnl
Packit 5c3484
dnl  The GNU MP Library is free software; you can redistribute it and/or modify
Packit 5c3484
dnl  it under the terms of either:
Packit 5c3484
dnl
Packit 5c3484
dnl    * the GNU Lesser General Public License as published by the Free
Packit 5c3484
dnl      Software Foundation; either version 3 of the License, or (at your
Packit 5c3484
dnl      option) any later version.
Packit 5c3484
dnl
Packit 5c3484
dnl  or
Packit 5c3484
dnl
Packit 5c3484
dnl    * the GNU General Public License as published by the Free Software
Packit 5c3484
dnl      Foundation; either version 2 of the License, or (at your option) any
Packit 5c3484
dnl      later version.
Packit 5c3484
dnl
Packit 5c3484
dnl  or both in parallel, as here.
Packit 5c3484
dnl
Packit 5c3484
dnl  The GNU MP Library is distributed in the hope that it will be useful, but
Packit 5c3484
dnl  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
Packit 5c3484
dnl  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
Packit 5c3484
dnl  for more details.
Packit 5c3484
dnl
Packit 5c3484
dnl  You should have received copies of the GNU General Public License and the
Packit 5c3484
dnl  GNU Lesser General Public License along with the GNU MP Library.  If not,
Packit 5c3484
dnl  see https://www.gnu.org/licenses/.
Packit 5c3484
Packit 5c3484
include(`../config.m4')
Packit 5c3484
Packit 5c3484
C INPUT PARAMETERS
Packit 5c3484
define(`rp',  %o0)
Packit 5c3484
define(`ap',  %o1)
Packit 5c3484
define(`bp',  %o2)
Packit 5c3484
define(`n',   %o3)
Packit 5c3484
define(`cy',  %o4)
Packit 5c3484
Packit 5c3484
define(`i',   %o3)
Packit 5c3484
Packit 5c3484
MULFUNC_PROLOGUE(mpn_sub_n mpn_sub_nc)
Packit 5c3484
Packit 5c3484
ASM_START()
Packit 5c3484
PROLOGUE(mpn_sub_nc)
Packit 5c3484
	b	L(ent)
Packit 5c3484
	srl	cy, 0, cy	C strip any bogus high bits
Packit 5c3484
EPILOGUE()
Packit 5c3484
Packit 5c3484
PROLOGUE(mpn_sub_n)
Packit 5c3484
	mov	0, cy
Packit 5c3484
L(ent):	srl	n, 0, n		C strip any bogus high bits
Packit 5c3484
	sll	n, 2, n
Packit 5c3484
	add	ap, n, ap
Packit 5c3484
	add	bp, n, bp
Packit 5c3484
	add	rp, n, rp
Packit 5c3484
	neg	n, i
Packit 5c3484
Packit 5c3484
L(top):	lduw	[ap+i], %g1
Packit 5c3484
	lduw	[bp+i], %g2
Packit 5c3484
	sub	%g1, %g2, %g3
Packit 5c3484
	sub	%g3, cy, %g3
Packit 5c3484
	stw	%g3, [rp+i]
Packit 5c3484
	add	i, 4, i
Packit 5c3484
	brnz	i, L(top)
Packit 5c3484
	srlx	%g3, 63, cy
Packit 5c3484
Packit 5c3484
	retl
Packit 5c3484
	mov	cy, %o0		C return value
Packit 5c3484
EPILOGUE()