Environment

src/CMakeLists.txt

@@ -309,6 +309,8 @@ SET (C_DEPS_SRC
     numerical/src/Math/int_log.c
     numerical/src/Math/sign.c
     numerical/src/Math/isnan.c
+    numerical/src/Math/frexp.c
+    numerical/src/Math/ldexp.c
     numerical/src/Math/isinf.c
     numerical/src/Math/isfinite.c
     random/src/Xoshiro.c

src/numerical/Math.sac

@@ -160,20 +160,26 @@ external float exp(float X);
 
 external double, int frexp(double X);
     #pragma linksign [0,2,1]
+    #pragma linkname "SAC_MATH_frexp"
+    #pragma linkobj "src/Math/frexp.o"
     #pragma header "<math.h>"
 
 external float, int frexp(float X);
     #pragma linksign [0,2,1]
-    #pragma linkname "frexpf"
+    #pragma linkname "SAC_MATH_frexpf"
+    #pragma linkobj "src/Math/frexp.o"
     #pragma header "<math.h>"
 
 external double ldexp(double X, int EXP);
     #pragma linksign [0,1,2]
+    #pragma linkname "SAC_MATH_ldexp"
+    #pragma linkobj "src/Math/ldexp.o"
     #pragma header "<math.h>"
 
 external float ldexp(float X, int EXP);
     #pragma linksign [0,1,2]
-    #pragma linkname "ldexpf"
+    #pragma linkname "SAC_MATH_ldexpf"
+    #pragma linkobj "src/Math/ldexp.o"
     #pragma header "<math.h>"
 
 external double log(double X);

src/numerical/src/Math/frexp.c

@@ -0,0 +1,29 @@
+/**
+ * Dealing with sac_int arguments.
+ */
+#include <math.h>
+#include "sacinterface.h"
+
+double SAC_MATH_frexp( double val, sac_int *exp)
+{
+  int  ex;
+  double res;
+
+  res = frexp (val, &ex);
+
+  *exp = (sac_int)ex;
+
+  return res;
+}
+
+float SAC_MATH_frexpf( float val, sac_int *exp)
+{
+  int  ex;
+  float res;
+
+  res = frexpf (val, &ex);
+
+  *exp = (sac_int)ex;
+
+  return res;
+}

src/numerical/src/Math/ldexp.c

@@ -0,0 +1,15 @@
+/**
+ * Dealing with sac_int arguments.
+ */
+#include <math.h>
+#include "sacinterface.h"
+
+double SAC_MATH_ldexp( double val, sac_int exp)
+{
+  return ldexp (val, (int)exp);
+}
+
+float SAC_MATH_ldexpf( float val, sac_int exp)
+{
+  return ldexpf (val, (int)exp);
+}

src/system/src/Environment/Environ.c

@@ -5,9 +5,9 @@
 
 extern char **environ;
 
-int EnvCount( void)
+sac_int EnvCount( void)
 {
-  int i = 0;
+  sac_int i = 0;
 
   if (environ) {
     while (environ[i]) {
@@ -18,10 +18,10 @@ int EnvCount( void)
   return i;
 }
 
-char* IndexEnv( int i)
+char* IndexEnv( sac_int i)
 {
   char* res;
-  int k = 0;
+  sac_int k = 0;
 
   if (environ) {
     while (k < i && environ[k]) {