mono/metadata/sysmath.c

   1 /**
   2  * \file
   3  * these are based on bob smith's csharp routines
   4  *
   5  * Author:
   6  *      Mono Project (http://www.mono-project.com)
   7  *      Ludovic Henry (ludovic@xamarin.com)
   8  *
   9  * Copyright 2001-2003 Ximian, Inc (http://www.ximian.com)
  10  * Copyright 2004-2009 Novell, Inc (http://www.novell.com)
  11  * Copyright 2015 Xamarin, Inc (https://www.xamarin.com)
  12  * Licensed under the MIT license. See LICENSE file in the project root for full license information.
  13  */
  14
  15 //
  16 // Copyright (c) Microsoft. All rights reserved.
  17 // Licensed under the MIT license. See LICENSE file in the project root for full license information.
  18 //
  19 // Files:
  20 //  - src/classlibnative/float/floatnative.cpp
  21 //  - src/pal/src/cruntime/floatnative.cpp
  22 //
  23 // Ported from C++ to C and adjusted to Mono runtime
  24
  25 #define __USE_ISOC99
  26
  27 #include <math.h>
  28
  29 #include "number-ms.h"
  30 #include "utils/mono-compiler.h"
  31 #include "icalls.h"
  32 #include "icall-decl.h"
  33
  34 gdouble
  35 ves_icall_System_Math_Floor (gdouble x)
  36 {
  37         return floor(x);
  38 }
  39
  40 gdouble
  41 ves_icall_System_Math_Round (gdouble x)
  42 {
  43         gdouble floor_tmp;
  44
  45         /* If the number has no fractional part do nothing This shortcut is necessary
  46          * to workaround precision loss in borderline cases on some platforms */
  47         if (x == (gdouble)(gint64) x)
  48                 return x;
  49
  50         floor_tmp = floor (x + 0.5);
  51
  52         if ((x == (floor (x) + 0.5)) && (fmod (floor_tmp, 2.0) != 0)) {
  53                 floor_tmp -= 1.0;
  54         }
  55
  56         return copysign (floor_tmp, x);
  57 }
  58
  59 gdouble
  60 ves_icall_System_Math_FMod (gdouble x, gdouble y)
  61 {
  62         return fmod (x, y);
  63 }
  64
  65 gdouble
  66 ves_icall_System_Math_ModF (gdouble x, gdouble *d)
  67 {
  68         return modf (x, d);
  69 }
  70
  71 gdouble
  72 ves_icall_System_Math_Sin (gdouble x)
  73 {
  74         return sin (x);
  75 }
  76
  77 gdouble
  78 ves_icall_System_Math_Cos (gdouble x)
  79 {
  80         return cos (x);
  81 }
  82
  83 gdouble
  84 ves_icall_System_Math_Cbrt (gdouble x)
  85 {
  86         return cbrt (x);
  87 }
  88
  89 gdouble
  90 ves_icall_System_Math_Tan (gdouble x)
  91 {
  92         return tan (x);
  93 }
  94
  95 gdouble
  96 ves_icall_System_Math_Sinh (gdouble x)
  97 {
  98         return sinh (x);
  99 }
 100
 101 gdouble
 102 ves_icall_System_Math_Cosh (gdouble x)
 103 {
 104         return cosh (x);
 105 }
 106
 107 gdouble
 108 ves_icall_System_Math_Tanh (gdouble x)
 109 {
 110         return tanh (x);
 111 }
 112
 113 gdouble
 114 ves_icall_System_Math_Acos (gdouble x)
 115 {
 116         return acos (x);
 117 }
 118
 119 gdouble
 120 ves_icall_System_Math_Acosh (gdouble x)
 121 {
 122         return acosh (x);
 123 }
 124
 125 gdouble
 126 ves_icall_System_Math_Asin (gdouble x)
 127 {
 128         return asin (x);
 129 }
 130
 131 gdouble
 132 ves_icall_System_Math_Asinh (gdouble x)
 133 {
 134         return asinh (x);
 135 }
 136
 137 gdouble
 138 ves_icall_System_Math_Atan (gdouble x)
 139 {
 140         return atan (x);
 141 }
 142
 143 gdouble
 144 ves_icall_System_Math_Atan2 (gdouble y, gdouble x)
 145 {
 146         return atan2 (y, x);
 147 }
 148
 149 gdouble
 150 ves_icall_System_Math_Atanh (gdouble x)
 151 {
 152         return atanh (x);
 153 }
 154
 155 gdouble
 156 ves_icall_System_Math_Exp (gdouble x)
 157 {
 158         return exp (x);
 159 }
 160
 161 gdouble
 162 ves_icall_System_Math_Log (gdouble x)
 163 {
 164         return log (x);
 165 }
 166
 167 gdouble
 168 ves_icall_System_Math_Log10 (gdouble x)
 169 {
 170         return log10 (x);
 171 }
 172
 173 gdouble
 174 ves_icall_System_Math_Pow (gdouble x, gdouble y)
 175 {
 176         return pow (x, y);
 177 }
 178
 179 gdouble
 180 ves_icall_System_Math_Sqrt (gdouble x)
 181 {
 182         return sqrt (x);
 183 }
 184
 185 gdouble
 186 ves_icall_System_Math_Abs_double (gdouble v)
 187 {
 188         return fabs (v);
 189 }
 190
 191 float
 192 ves_icall_System_Math_Abs_single (float v)
 193 {
 194         return fabsf (v);
 195 }
 196
 197 gdouble
 198 ves_icall_System_Math_Ceiling (gdouble v)
 199 {
 200         return ceil (v);
 201 }
 202
 203 float
 204 ves_icall_System_MathF_Acos (float x)
 205 {
 206         return acosf (x);
 207 }
 208
 209 float
 210 ves_icall_System_MathF_Acosh (float x)
 211 {
 212         return acoshf (x);
 213 }
 214
 215 float
 216 ves_icall_System_MathF_Asin (float x)
 217 {
 218         return asinf (x);
 219 }
 220
 221 float
 222 ves_icall_System_MathF_Asinh  (float x)
 223 {
 224         return asinhf (x);
 225 }
 226
 227 float
 228 ves_icall_System_MathF_Atan  (float x)
 229 {
 230         return atan (x);
 231 }
 232
 233 float
 234 ves_icall_System_MathF_Atan2 (float x, float y)
 235 {
 236         return atan2f (x, y);
 237 }
 238
 239 float
 240 ves_icall_System_MathF_Atanh (float x)
 241 {
 242         return atanhf (x);
 243 }
 244
 245 float
 246 ves_icall_System_MathF_Cbrt (float x)
 247 {
 248         return cbrtf (x);
 249 }
 250
 251 float
 252 ves_icall_System_MathF_Ceiling (float x)
 253 {
 254         return ceilf(x);
 255 }
 256
 257 float
 258 ves_icall_System_MathF_Cos (float x)
 259 {
 260         return cosf (x);
 261 }
 262
 263 float
 264 ves_icall_System_MathF_Cosh (float x)
 265 {
 266         return coshf (x);
 267 }
 268
 269 float
 270 ves_icall_System_MathF_Exp (float x)
 271 {
 272         return expf (x);
 273 }
 274
 275 float
 276 ves_icall_System_MathF_Floor (float x)
 277 {
 278         return floorf (x);
 279 }
 280
 281 float
 282 ves_icall_System_MathF_Log (float x)
 283 {
 284         return logf (x);
 285 }
 286
 287 float
 288 ves_icall_System_MathF_Log10 (float x)
 289 {
 290         return log10f (x);
 291 }
 292
 293 float
 294 ves_icall_System_MathF_Pow (float x, float y)
 295 {
 296         return powf (x, y);
 297 }
 298
 299 float
 300 ves_icall_System_MathF_Sin (float x)
 301 {
 302         return sinf (x);
 303 }
 304
 305 float
 306 ves_icall_System_MathF_Sinh (float x)
 307 {
 308         return sinh (x);
 309 }
 310
 311 float
 312 ves_icall_System_MathF_Sqrt (float x)
 313 {
 314         return sqrtf (x);
 315 }
 316
 317 float
 318 ves_icall_System_MathF_Tan (float x)
 319 {
 320         return tanf (x);
 321 }
 322
 323 float
 324 ves_icall_System_MathF_Tanh (float x)
 325 {
 326         return tanh (x);
 327 }
 328
 329 float
 330 ves_icall_System_MathF_FMod (float x, float y)
 331 {
 332         return fmodf (x, y);
 333 }
 334
 335 float
 336 ves_icall_System_MathF_ModF (float x, float *d)
 337 {
 338         return modff (x, d);
 339 }