mirror of
https://github.com/xomboverlord/ldc.git
synced 2026-04-29 15:01:30 +02:00
78 lines
2.1 KiB
D
78 lines
2.1 KiB
D
module intrinsics_ovf;
|
|
|
|
|
|
//version = PRINTF;
|
|
|
|
version(PRINTF)
|
|
extern(C) int printf(char*, ...);
|
|
|
|
|
|
import ldc.intrinsics;
|
|
|
|
|
|
int saddo(int a, int b, out bool overflow) {
|
|
auto Result = llvm_sadd_with_overflow(a, b);
|
|
overflow = Result.overflow;
|
|
return Result.result;
|
|
}
|
|
|
|
int uaddo(int a, int b, out bool overflow) {
|
|
auto Result = llvm_uadd_with_overflow(a, b);
|
|
overflow = Result.overflow;
|
|
return Result.result;
|
|
}
|
|
|
|
int smulo(int a, int b, out bool overflow) {
|
|
auto Result = llvm_smul_with_overflow(a, b);
|
|
overflow = Result.overflow;
|
|
return Result.result;
|
|
}
|
|
|
|
/*
|
|
uint umulo(uint a, uint b, out bool overflow) {
|
|
auto Result = llvm_umul_with_overflow(a, b);
|
|
overflow = Result.overflow;
|
|
return Result.result;
|
|
}
|
|
*/
|
|
|
|
void test(int function(int, int, out bool) fn,
|
|
int a, int b, int result_e, bool ovf_e) {
|
|
version(PRINTF)
|
|
printf("%8x :: %8x :: %8x :: %.*s\n", a, b, result_e,
|
|
(ovf_e ? "true" : "false"));
|
|
|
|
bool ovf;
|
|
int result = fn(a, b, ovf);
|
|
|
|
version(PRINTF)
|
|
printf("____________________ %8x :: %.*s\n", result,
|
|
(ovf ? "true" : "false"));
|
|
|
|
assert(ovf == ovf_e);
|
|
assert(result == result_e);
|
|
}
|
|
|
|
void main() {
|
|
test(&saddo, int.min, int.min, int.min + int.min, true);
|
|
test(&saddo, int.min, int.max, int.min + int.max, false);
|
|
test(&saddo, 1, int.max, 1 + int.max, true);
|
|
test(&saddo, 1, 2, 3, false);
|
|
test(&saddo, -1, -2, -3, false);
|
|
|
|
test(&uaddo, 0, uint.max, 0 + uint.max, false);
|
|
test(&uaddo, 1, uint.max, 1 + uint.max, true);
|
|
test(&uaddo, 1, 2, 3, false);
|
|
|
|
test(&smulo, int.min, int.min, int.min * int.min, true);
|
|
test(&smulo, int.min, int.max, int.min * int.max, true);
|
|
test(&smulo, int.max, int.max, int.max * int.max, true);
|
|
test(&smulo, 1, int.max, 1 * int.max, false);
|
|
test(&smulo, 2, int.max/2, 2 * (int.max/2), false);
|
|
test(&smulo, 2, int.max/2 + 1, 2 * (int.max/2 + 1), true);
|
|
test(&smulo, 2, int.min/2, 2 * (int.min/2), false);
|
|
test(&smulo, 2, int.min/2 - 1, 2 * (int.min/2 - 1), true);
|
|
test(&smulo, 1, 2, 2, false);
|
|
test(&smulo, -1, -2, 2, false);
|
|
}
|