blob: 752202d45e017bf89064f61d86e9960d6aeb9257 [file] [log] [blame]
Edward O'Callaghan37a6a452009-08-07 20:30:09 +00001/* ===-- modti3.c - Implement __modti3 -------------------------------------===
2 *
3 * The LLVM Compiler Infrastructure
4 *
Howard Hinnant9ad441f2010-11-16 22:13:33 +00005 * This file is dual licensed under the MIT and the University of Illinois Open
6 * Source Licenses. See LICENSE.TXT for details.
Edward O'Callaghan37a6a452009-08-07 20:30:09 +00007 *
8 * ===----------------------------------------------------------------------===
9 *
10 * This file implements __modti3 for the compiler_rt library.
11 *
12 * ===----------------------------------------------------------------------===
13 */
Daniel Dunbarb3a69012009-06-26 16:47:03 +000014
Daniel Dunbarb3a69012009-06-26 16:47:03 +000015#include "int_lib.h"
16
Chandler Carruth7f2d7c72012-06-22 21:09:22 +000017#if __x86_64
18
Daniel Dunbarb3a69012009-06-26 16:47:03 +000019tu_int __udivmodti4(tu_int a, tu_int b, tu_int* rem);
20
Edward O'Callaghan37a6a452009-08-07 20:30:09 +000021/*Returns: a % b */
Daniel Dunbarb3a69012009-06-26 16:47:03 +000022
23ti_int
24__modti3(ti_int a, ti_int b)
25{
26 const int bits_in_tword_m1 = (int)(sizeof(ti_int) * CHAR_BIT) - 1;
Edward O'Callaghan37a6a452009-08-07 20:30:09 +000027 ti_int s = b >> bits_in_tword_m1; /* s = b < 0 ? -1 : 0 */
28 b = (b ^ s) - s; /* negate if s == -1 */
29 s = a >> bits_in_tword_m1; /* s = a < 0 ? -1 : 0 */
30 a = (a ^ s) - s; /* negate if s == -1 */
Daniel Dunbarb3a69012009-06-26 16:47:03 +000031 ti_int r;
32 __udivmodti4(a, b, (tu_int*)&r);
Edward O'Callaghan37a6a452009-08-07 20:30:09 +000033 return (r ^ s) - s; /* negate if s == -1 */
Daniel Dunbarb3a69012009-06-26 16:47:03 +000034}
35
36#endif