49 lines
1.7 KiB
Common Lisp
49 lines
1.7 KiB
Common Lisp
//===----------------------------------------------------------------------===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include <clc/clcmacro.h>
|
|
#include <clc/integer/clc_ctz.h>
|
|
#include <clc/internal/clc.h>
|
|
|
|
_CLC_OVERLOAD _CLC_DEF char __clc_ctz(char x) {
|
|
return __clc_ctz(__clc_as_uchar(x));
|
|
}
|
|
|
|
_CLC_OVERLOAD _CLC_DEF uchar __clc_ctz(uchar x) { return __builtin_ctzg(x, 8); }
|
|
|
|
_CLC_OVERLOAD _CLC_DEF short __clc_ctz(short x) {
|
|
return __clc_ctz(__clc_as_ushort(x));
|
|
}
|
|
|
|
_CLC_OVERLOAD _CLC_DEF ushort __clc_ctz(ushort x) {
|
|
return __builtin_ctzg(x, 16);
|
|
}
|
|
|
|
_CLC_OVERLOAD _CLC_DEF int __clc_ctz(int x) {
|
|
return __clc_ctz(__clc_as_uint(x));
|
|
}
|
|
|
|
_CLC_OVERLOAD _CLC_DEF uint __clc_ctz(uint x) { return __builtin_ctzg(x, 32); }
|
|
|
|
_CLC_OVERLOAD _CLC_DEF long __clc_ctz(long x) {
|
|
return __clc_ctz(__clc_as_ulong(x));
|
|
}
|
|
|
|
_CLC_OVERLOAD _CLC_DEF ulong __clc_ctz(ulong x) {
|
|
return __builtin_ctzg(x, 64);
|
|
}
|
|
|
|
_CLC_UNARY_VECTORIZE(_CLC_OVERLOAD _CLC_DEF, char, __clc_ctz, char)
|
|
_CLC_UNARY_VECTORIZE(_CLC_OVERLOAD _CLC_DEF, uchar, __clc_ctz, uchar)
|
|
_CLC_UNARY_VECTORIZE(_CLC_OVERLOAD _CLC_DEF, short, __clc_ctz, short)
|
|
_CLC_UNARY_VECTORIZE(_CLC_OVERLOAD _CLC_DEF, ushort, __clc_ctz, ushort)
|
|
_CLC_UNARY_VECTORIZE(_CLC_OVERLOAD _CLC_DEF, int, __clc_ctz, int)
|
|
_CLC_UNARY_VECTORIZE(_CLC_OVERLOAD _CLC_DEF, uint, __clc_ctz, uint)
|
|
_CLC_UNARY_VECTORIZE(_CLC_OVERLOAD _CLC_DEF, long, __clc_ctz, long)
|
|
_CLC_UNARY_VECTORIZE(_CLC_OVERLOAD _CLC_DEF, ulong, __clc_ctz, ulong)
|