Blame sysdeps/s390/ffs.c

Packit 6c4009
/* ffs -- find first set bit in a word, counted from least significant end.
Packit 6c4009
   S/390 version.
Packit 6c4009
   Copyright (C) 2000-2018 Free Software Foundation, Inc.
Packit 6c4009
   Contributed by Martin Schwidefsky (schwidefsky@de.ibm.com).
Packit 6c4009
   This file is part of the GNU C Library.
Packit 6c4009
Packit 6c4009
   The GNU C Library is free software; you can redistribute it and/or
Packit 6c4009
   modify it under the terms of the GNU Lesser General Public
Packit 6c4009
   License as published by the Free Software Foundation; either
Packit 6c4009
   version 2.1 of the License, or (at your option) any later version.
Packit 6c4009
Packit 6c4009
   The GNU C Library is distributed in the hope that it will be useful,
Packit 6c4009
   but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit 6c4009
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Packit 6c4009
   Lesser General Public License for more details.
Packit 6c4009
Packit 6c4009
   You should have received a copy of the GNU Lesser General Public
Packit 6c4009
   License along with the GNU C Library; if not, see
Packit 6c4009
   <http://www.gnu.org/licenses/>.  */
Packit 6c4009
Packit 6c4009
#include <limits.h>
Packit 6c4009
#define ffsl __something_else
Packit 6c4009
#include <string.h>
Packit 6c4009
Packit 6c4009
#undef	ffs
Packit 6c4009
Packit 6c4009
/* ffs: find first bit set. This is defined the same way as
Packit 6c4009
   the libc and compiler builtin ffs routines, therefore
Packit 6c4009
   differs in spirit from the above ffz (man ffs).  */
Packit 6c4009
Packit 6c4009
int
Packit 6c4009
__ffs (int x)
Packit 6c4009
{
Packit 6c4009
	int r;
Packit 6c4009
Packit 6c4009
	if (x == 0)
Packit 6c4009
	  return 0;
Packit 6c4009
	__asm__("    lr	  %%r1,%1\n"
Packit 6c4009
		"    sr	  %0,%0\n"
Packit 6c4009
		"    tml  %%r1,0xFFFF\n"
Packit 6c4009
		"    jnz  0f\n"
Packit 6c4009
		"    ahi  %0,16\n"
Packit 6c4009
		"    srl  %%r1,16\n"
Packit 6c4009
		"0:  tml  %%r1,0x00FF\n"
Packit 6c4009
		"    jnz  1f\n"
Packit 6c4009
		"    ahi  %0,8\n"
Packit 6c4009
		"    srl  %%r1,8\n"
Packit 6c4009
		"1:  tml  %%r1,0x000F\n"
Packit 6c4009
		"    jnz  2f\n"
Packit 6c4009
		"    ahi  %0,4\n"
Packit 6c4009
		"    srl  %%r1,4\n"
Packit 6c4009
		"2:  tml  %%r1,0x0003\n"
Packit 6c4009
		"    jnz  3f\n"
Packit 6c4009
		"    ahi  %0,2\n"
Packit 6c4009
		"    srl  %%r1,2\n"
Packit 6c4009
		"3:  tml  %%r1,0x0001\n"
Packit 6c4009
		"    jnz  4f\n"
Packit 6c4009
		"    ahi  %0,1\n"
Packit 6c4009
		"4:"
Packit 6c4009
		: "=&d" (r) : "d" (x) : "cc", "1" );
Packit 6c4009
	return r+1;
Packit 6c4009
}
Packit 6c4009
Packit 6c4009
weak_alias (__ffs, ffs)
Packit 6c4009
libc_hidden_def (__ffs)
Packit 6c4009
libc_hidden_builtin_def (ffs)
Packit 6c4009
#if ULONG_MAX == UINT_MAX
Packit 6c4009
#undef ffsl
Packit 6c4009
weak_alias (__ffs, ffsl)
Packit 6c4009
#endif