From 4abab5ad6c8465a7528ccdd5f49367da05f78bbd Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Tue, 1 Oct 2024 15:47:05 +0200
Subject: Initial version

---
 src/math/scalbln.c | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/math/scalbln.c

(limited to 'src/math/scalbln.c')

diff --git a/src/math/scalbln.c b/src/math/scalbln.c
new file mode 100644
index 0000000..e6f3f19
--- /dev/null
+++ b/src/math/scalbln.c
@@ -0,0 +1,11 @@
+#include <limits.h>
+#include <math.h>
+
+double scalbln(double x, long n)
+{
+	if (n > INT_MAX)
+		n = INT_MAX;
+	else if (n < INT_MIN)
+		n = INT_MIN;
+	return scalbn(x, n);
+}
-- 
cgit v1.2.3