Blame mpn/alpha/cntlz.asm

Packit 5c3484
dnl  Alpha auxiliary for longlong.h's count_leading_zeros
Packit 5c3484
Packit 5c3484
dnl  Copyright 1997, 2000, 2002 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
Packit 5c3484
ASM_START()
Packit 5c3484
EXTERN(__clz_tab)
Packit 5c3484
PROLOGUE(mpn_count_leading_zeros,gp)
Packit 5c3484
	cmpbge	r31,  r16, r1
Packit 5c3484
	LEA(r3,__clz_tab)
Packit 5c3484
	sra	r1,   1,   r1
Packit 5c3484
	xor	r1,   127, r1
Packit 5c3484
	srl	r16,  1,   r16
Packit 5c3484
	addq	r1,   r3,  r1
Packit 5c3484
	ldq_u	r0,   0(r1)
Packit 5c3484
	lda	r2,   64
Packit 5c3484
	extbl	r0,   r1,   r0
Packit 5c3484
	s8subl	r0,   8,    r0
Packit 5c3484
	srl	r16,  r0,   r16
Packit 5c3484
	addq	r16,  r3,   r16
Packit 5c3484
	ldq_u	r1,   0(r16)
Packit 5c3484
	extbl	r1,   r16,  r1
Packit 5c3484
	subq	r2,   r1,   r2
Packit 5c3484
	subq	r2,   r0,   r0
Packit 5c3484
	ret	r31,  (r26),1
Packit 5c3484
EPILOGUE(mpn_count_leading_zeros)
Packit 5c3484
ASM_END()