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 "utils/mono-math.h"
  32 #include "icalls.h"
  33 #include "icall-decl.h"
  34
  35 gdouble
  36 ves_icall_System_Math_Floor (gdouble x)
  37 {
  38         return floor(x);
  39 }
  40
  41 gdouble
  42 ves_icall_System_Math_Round (gdouble x)
  43 {
  44         return mono_round_to_even (x);
  45 }
  46
  47 gdouble
  48 ves_icall_System_Math_FMod (gdouble x, gdouble y)
  49 {
  50         return fmod (x, y);
  51 }
  52
  53 gdouble
  54 ves_icall_System_Math_ModF (gdouble x, gdouble *d)
  55 {
  56         return modf (x, d);
  57 }
  58
  59 gdouble
  60 ves_icall_System_Math_Sin (gdouble x)
  61 {
  62         return sin (x);
  63 }
  64
  65 gdouble
  66 ves_icall_System_Math_Cos (gdouble x)
  67 {
  68         return cos (x);
  69 }
  70
  71 gdouble
  72 ves_icall_System_Math_Cbrt (gdouble x)
  73 {
  74         return cbrt (x);
  75 }
  76
  77 gdouble
  78 ves_icall_System_Math_Tan (gdouble x)
  79 {
  80         return tan (x);
  81 }
  82
  83 gdouble
  84 ves_icall_System_Math_Sinh (gdouble x)
  85 {
  86         return sinh (x);
  87 }
  88
  89 gdouble
  90 ves_icall_System_Math_Cosh (gdouble x)
  91 {
  92         return cosh (x);
  93 }
  94
  95 gdouble
  96 ves_icall_System_Math_Tanh (gdouble x)
  97 {
  98         return tanh (x);
  99 }
 100
 101 gdouble
 102 ves_icall_System_Math_Acos (gdouble x)
 103 {
 104         return acos (x);
 105 }
 106
 107 gdouble
 108 ves_icall_System_Math_Acosh (gdouble x)
 109 {
 110         return acosh (x);
 111 }
 112
 113 gdouble
 114 ves_icall_System_Math_Asin (gdouble x)
 115 {
 116         return asin (x);
 117 }
 118
 119 gdouble
 120 ves_icall_System_Math_Asinh (gdouble x)
 121 {
 122         return asinh (x);
 123 }
 124
 125 gdouble
 126 ves_icall_System_Math_Atan (gdouble x)
 127 {
 128         return atan (x);
 129 }
 130
 131 gdouble
 132 ves_icall_System_Math_Atan2 (gdouble y, gdouble x)
 133 {
 134         return atan2 (y, x);
 135 }
 136
 137 gdouble
 138 ves_icall_System_Math_Atanh (gdouble x)
 139 {
 140         return atanh (x);
 141 }
 142
 143 gdouble
 144 ves_icall_System_Math_Exp (gdouble x)
 145 {
 146         return exp (x);
 147 }
 148
 149 gdouble
 150 ves_icall_System_Math_Log (gdouble x)
 151 {
 152         return log (x);
 153 }
 154
 155 gdouble
 156 ves_icall_System_Math_Log10 (gdouble x)
 157 {
 158         return log10 (x);
 159 }
 160
 161 gdouble
 162 ves_icall_System_Math_Pow (gdouble x, gdouble y)
 163 {
 164         return pow (x, y);
 165 }
 166
 167 gdouble
 168 ves_icall_System_Math_Sqrt (gdouble x)
 169 {
 170         return sqrt (x);
 171 }
 172
 173 gdouble
 174 ves_icall_System_Math_Abs_double (gdouble v)
 175 {
 176         return fabs (v);
 177 }
 178
 179 float
 180 ves_icall_System_Math_Abs_single (float v)
 181 {
 182         return fabsf (v);
 183 }
 184
 185 gdouble
 186 ves_icall_System_Math_Ceiling (gdouble v)
 187 {
 188         return ceil (v);
 189 }
 190
 191
 192 float
 193 ves_icall_System_MathF_Acos (float x)
 194 {
 195         return acosf (x);
 196 }
 197
 198 float
 199 ves_icall_System_MathF_Acosh (float x)
 200 {
 201         return acoshf (x);
 202 }
 203
 204 float
 205 ves_icall_System_MathF_Asin (float x)
 206 {
 207         return asinf (x);
 208 }
 209
 210 float
 211 ves_icall_System_MathF_Asinh  (float x)
 212 {
 213         return asinhf (x);
 214 }
 215
 216 float
 217 ves_icall_System_MathF_Atan  (float x)
 218 {
 219         return atan (x);
 220 }
 221
 222 float
 223 ves_icall_System_MathF_Atan2 (float x, float y)
 224 {
 225         return atan2f (x, y);
 226 }
 227
 228 float
 229 ves_icall_System_MathF_Atanh (float x)
 230 {
 231         return atanhf (x);
 232 }
 233
 234 float
 235 ves_icall_System_MathF_Cbrt (float x)
 236 {
 237         return cbrtf (x);
 238 }
 239
 240 float
 241 ves_icall_System_MathF_Ceiling (float x)
 242 {
 243         return ceilf(x);
 244 }
 245
 246 float
 247 ves_icall_System_MathF_Cos (float x)
 248 {
 249         return cosf (x);
 250 }
 251
 252 float
 253 ves_icall_System_MathF_Cosh (float x)
 254 {
 255         return coshf (x);
 256 }
 257
 258 float
 259 ves_icall_System_MathF_Exp (float x)
 260 {
 261         return expf (x);
 262 }
 263
 264 float
 265 ves_icall_System_MathF_Floor (float x)
 266 {
 267         return floorf (x);
 268 }
 269
 270 float
 271 ves_icall_System_MathF_Log (float x)
 272 {
 273         return logf (x);
 274 }
 275
 276 float
 277 ves_icall_System_MathF_Log10 (float x)
 278 {
 279         return log10f (x);
 280 }
 281
 282 float
 283 ves_icall_System_MathF_Pow (float x, float y)
 284 {
 285         return powf (x, y);
 286 }
 287
 288 float
 289 ves_icall_System_MathF_Sin (float x)
 290 {
 291         return sinf (x);
 292 }
 293
 294 float
 295 ves_icall_System_MathF_Sinh (float x)
 296 {
 297         return sinh (x);
 298 }
 299
 300 float
 301 ves_icall_System_MathF_Sqrt (float x)
 302 {
 303         return sqrtf (x);
 304 }
 305
 306 float
 307 ves_icall_System_MathF_Tan (float x)
 308 {
 309         return tanf (x);
 310 }
 311
 312 float
 313 ves_icall_System_MathF_Tanh (float x)
 314 {
 315         return tanh (x);
 316 }
 317
 318 float
 319 ves_icall_System_MathF_FMod (float x, float y)
 320 {
 321         return fmodf (x, y);
 322 }
 323
 324 float
 325 ves_icall_System_MathF_ModF (float x, float *d)
 326 {
 327         return modff (x, d);
 328 }
 329