OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [tags/] [LINUX_2_4_26_OR32/] [linux/] [linux-2.4/] [include/] [asm-s390/] [div64.h] - Rev 1780

Go to most recent revision | Compare with Previous | Blame | View Log

#ifndef __S390_DIV64
#define __S390_DIV64
 
/* for do_div "base" needs to be smaller than 2^31-1 */
 
#define do_div(n, base) ({                                      \
	unsigned long long __n = (n);				\
	unsigned long __r;					\
								\
	asm ("   slr  0,0\n"					\
	     "   l    1,%1\n"					\
	     "   srdl 0,1\n"					\
	     "   dr   0,%2\n"					\
	     "   alr  1,1\n"					\
	     "   alr  0,0\n"					\
	     "   lhi  2,1\n"					\
	     "   n    2,%1\n"					\
	     "   alr  0,2\n"					\
	     "   clr  0,%2\n"					\
	     "   jl   0f\n"					\
	     "   slr  0,%2\n"					\
             "   ahi  1,1\n"					\
	     "0: st   1,%1\n"					\
	     "   l    1,4+%1\n"					\
	     "   srdl 0,1\n"					\
             "   dr   0,%2\n"					\
	     "   alr  1,1\n"					\
	     "   alr  0,0\n"					\
	     "   lhi  2,1\n"					\
	     "   n    2,4+%1\n"					\
	     "   alr  0,2\n"					\
	     "   clr  0,%2\n"					\
             "   jl   1f\n"					\
	     "   slr  0,%2\n"					\
	     "   ahi  1,1\n"					\
	     "1: st   1,4+%1\n"					\
             "   lr   %0,0"					\
	     : "=d" (__r), "+m" (__n)				\
	     : "d" (base) : "0", "1", "2", "cc" );		\
	(n) = (__n);						\
        __r;                                                    \
})
 
#endif
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.