summaryrefslogtreecommitdiff
path: root/support/dktools/dk4maalu.c
diff options
context:
space:
mode:
Diffstat (limited to 'support/dktools/dk4maalu.c')
-rw-r--r--support/dktools/dk4maalu.c126
1 files changed, 0 insertions, 126 deletions
diff --git a/support/dktools/dk4maalu.c b/support/dktools/dk4maalu.c
deleted file mode 100644
index 00c343e529..0000000000
--- a/support/dktools/dk4maalu.c
+++ /dev/null
@@ -1,126 +0,0 @@
-/*
-Copyright (C) 2015-2020, Dirk Krause
-SPDX-License-Identifier: BSD-3-Clause
-*/
-
-/*
- WARNING: This file was generated by the dkct program (see
- http://dktools.sourceforge.net/ for details).
- Changes you make here will be lost if dkct is run again!
- You should modify the original source and run dkct on it.
- Original source: dk4maalu.ctr
-*/
-
-/** @file dk4maalu.c The dk4maalu module.
-*/
-
-
-#line 126 "dk4maalu.ctr"
-
-#include "dk4conf.h"
-#include "dk4types.h"
-#include "dk4error.h"
-#include "dk4numco.h"
-#include "dk4maalu.h"
-
-
-
-
-
-#line 136 "dk4maalu.ctr"
-
-
-
-#if DK4_HAVE_LONG_LONG
-
-unsigned long long
-dk4ma_ull_add(unsigned long long a, unsigned long long b, dk4_er_t *erp)
-{
- if ((ULLONG_MAX - a) < b) {
- dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW);
- }
- return (unsigned long long)(a + b);
-}
-
-
-
-unsigned long long
-dk4ma_ull_sub(unsigned long long a, unsigned long long b, dk4_er_t *erp)
-{
- if (b > a) {
- dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW);
- }
- return (unsigned long long)(a - b);
-}
-
-
-
-unsigned long long
-dk4ma_ull_mul(unsigned long long a, unsigned long long b, dk4_er_t *erp)
-{
- if (0ULL < a) {
- if ((ULLONG_MAX / a) < b) {
- dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW);
- }
- }
- return (unsigned long long)(a * b);
-}
-
-
-
-unsigned long long
-dk4ma_ull_div(unsigned long long a, unsigned long long b, dk4_er_t *erp)
-{
-
-
-#line 180 "dk4maalu.ctr"
- if (0ULL < b) {
-
-
-#line 182 "dk4maalu.ctr"
- return (unsigned long long)(a / b);
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_MATH_DIVZERO);
-
-
-#line 186 "dk4maalu.ctr"
- return (unsigned long long)(ULLONG_MAX);
- }
-}
-
-
-
-unsigned long long
-dk4ma_ull_from(dk4_um_t u, dk4_er_t *erp)
-{
- if ((dk4_um_t)(ULLONG_MAX) < u) {
- dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW);
- }
- return ((unsigned long long)u);
-}
-
-
-
-unsigned long long
-dk4ma_ull_from_double(double d, dk4_er_t *erp)
-{
- unsigned long long back = 0ULL;
- if ((double)(ULLONG_MAX) < d) {
- dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW);
- back = ULLONG_MAX;
- }
- else {
- if (0.0 > d) {
- dk4error_set_simple_error_code(erp,DK4_E_MATH_OVERFLOW);
- }
- else {
- back = (unsigned long long)d;
- }
- }
- return back;
-}
-
-
-
-#endif
-