Piotr Caban : msvcp90: Added complex hyperbolic functions implementation.
Alexandre Julliard
julliard at winehq.org
Thu Jan 24 12:59:49 CST 2013
Module: wine
Branch: master
Commit: b0cb2ead335dc024057f605f2297ce673e56420b
URL: http://source.winehq.org/git/wine.git/?a=commit;h=b0cb2ead335dc024057f605f2297ce673e56420b
Author: Piotr Caban <piotr at codeweavers.com>
Date: Thu Jan 24 12:29:21 2013 +0100
msvcp90: Added complex hyperbolic functions implementation.
---
dlls/msvcp90/math.c | 70 +++++++++++++++++++++++++++++++++++++++++++++
dlls/msvcp90/msvcp90.spec | 36 +++++++++++-----------
2 files changed, 88 insertions(+), 18 deletions(-)
diff --git a/dlls/msvcp90/math.c b/dlls/msvcp90/math.c
index c13fd3c..72a8922 100644
--- a/dlls/msvcp90/math.c
+++ b/dlls/msvcp90/math.c
@@ -1340,6 +1340,38 @@ complex_float* __cdecl complex_float_tan(complex_float *ret, const complex_float
return ret;
}
+/* ??$cosh at M@std@@YA?AV?$complex at M@0 at ABV10@@Z */
+/* ??$cosh at M@std@@YA?AV?$complex at M@0 at AEBV10@@Z */
+complex_float* __cdecl complex_float_cosh(complex_float *ret, const complex_float *c)
+{
+ ret->real = cosh(c->real)*cos(c->imag);
+ ret->imag = sinh(c->real)*sin(c->imag);
+ return ret;
+}
+
+/* ??$sinh at M@std@@YA?AV?$complex at M@0 at ABV10@@Z */
+/* ??$sinh at M@std@@YA?AV?$complex at M@0 at AEBV10@@Z */
+complex_float* __cdecl complex_float_sinh(complex_float *ret, const complex_float *c)
+{
+ ret->real = sinh(c->real)*cos(c->imag);
+ ret->imag = cosh(c->real)*sin(c->imag);
+ return ret;
+}
+
+/* ??$tanh at M@std@@YA?AV?$complex at M@0 at ABV10@@Z */
+/* ??$tanh at M@std@@YA?AV?$complex at M@0 at AEBV10@@Z */
+complex_float* __cdecl complex_float_tanh(complex_float *ret, const complex_float *c)
+{
+ complex_float tmp;
+
+ ret->real = -c->imag;
+ ret->imag = c->real;
+ complex_float_tan(&tmp, ret);
+ ret->real = tmp.imag;
+ ret->imag = -tmp.real;
+ return ret;
+}
+
/* ??0?$_Complex_base at NU_C_double_complex@@@std@@QAE at ABN0@Z */
/* ??0?$_Complex_base at NU_C_double_complex@@@std@@QEAA at AEBN0@Z */
/* ??0?$_Complex_base at OU_C_ldouble_complex@@@std@@QAE at ABO0@Z */
@@ -1882,3 +1914,41 @@ complex_double* __cdecl complex_double_tan(complex_double *ret, const complex_do
ret->imag = sinh(2*c->imag) / denom;
return ret;
}
+
+/* ??$cosh at N@std@@YA?AV?$complex at N@0 at ABV10@@Z */
+/* ??$cosh at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z */
+/* ??$cosh at O@std@@YA?AV?$complex at O@0 at ABV10@@Z */
+/* ??$cosh at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z */
+complex_double* __cdecl complex_double_cosh(complex_double *ret, const complex_double *c)
+{
+ ret->real = cosh(c->real)*cos(c->imag);
+ ret->imag = sinh(c->real)*sin(c->imag);
+ return ret;
+}
+
+/* ??$sinh at N@std@@YA?AV?$complex at N@0 at ABV10@@Z */
+/* ??$sinh at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z */
+/* ??$sinh at O@std@@YA?AV?$complex at O@0 at ABV10@@Z */
+/* ??$sinh at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z */
+complex_double* __cdecl complex_double_sinh(complex_double *ret, const complex_double *c)
+{
+ ret->real = sinh(c->real)*cos(c->imag);
+ ret->imag = cosh(c->real)*sin(c->imag);
+ return ret;
+}
+
+/* ??$tanh at N@std@@YA?AV?$complex at N@0 at ABV10@@Z */
+/* ??$tanh at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z */
+/* ??$tanh at O@std@@YA?AV?$complex at O@0 at ABV10@@Z */
+/* ??$tanh at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z */
+complex_double* __cdecl complex_double_tanh(complex_double *ret, const complex_double *c)
+{
+ complex_double tmp;
+
+ ret->real = -c->imag;
+ ret->imag = c->real;
+ complex_double_tan(&tmp, ret);
+ ret->real = tmp.imag;
+ ret->imag = -tmp.real;
+ return ret;
+}
diff --git a/dlls/msvcp90/msvcp90.spec b/dlls/msvcp90/msvcp90.spec
index 3022505..b77fcf5 100644
--- a/dlls/msvcp90/msvcp90.spec
+++ b/dlls/msvcp90/msvcp90.spec
@@ -374,12 +374,12 @@
@ cdecl -arch=win64 ??$cos at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z(ptr ptr) complex_double_cos
@ cdecl -arch=win32 ??$cos at O@std@@YA?AV?$complex at O@0 at ABV10@@Z(ptr ptr) complex_double_cos
@ cdecl -arch=win64 ??$cos at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z(ptr ptr) complex_double_cos
-@ stub -arch=win32 ??$cosh at M@std@@YA?AV?$complex at M@0 at ABV10@@Z
-@ stub -arch=win64 ??$cosh at M@std@@YA?AV?$complex at M@0 at AEBV10@@Z
-@ stub -arch=win32 ??$cosh at N@std@@YA?AV?$complex at N@0 at ABV10@@Z
-@ stub -arch=win64 ??$cosh at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z
-@ stub -arch=win32 ??$cosh at O@std@@YA?AV?$complex at O@0 at ABV10@@Z
-@ stub -arch=win64 ??$cosh at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z
+@ cdecl -arch=win32 ??$cosh at M@std@@YA?AV?$complex at M@0 at ABV10@@Z(ptr ptr) complex_float_cosh
+@ cdecl -arch=win64 ??$cosh at M@std@@YA?AV?$complex at M@0 at AEBV10@@Z(ptr ptr) complex_float_cosh
+@ cdecl -arch=win32 ??$cosh at N@std@@YA?AV?$complex at N@0 at ABV10@@Z(ptr ptr) complex_double_cosh
+@ cdecl -arch=win64 ??$cosh at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z(ptr ptr) complex_double_cosh
+@ cdecl -arch=win32 ??$cosh at O@std@@YA?AV?$complex at O@0 at ABV10@@Z(ptr ptr) complex_double_cosh
+@ cdecl -arch=win64 ??$cosh at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z(ptr ptr) complex_double_cosh
@ stub -arch=win32 ??$exp at M@std@@YA?AV?$complex at M@0 at ABV10@@Z
@ stub -arch=win64 ??$exp at M@std@@YA?AV?$complex at M@0 at AEBV10@@Z
@ stub -arch=win32 ??$exp at N@std@@YA?AV?$complex at N@0 at ABV10@@Z
@@ -470,12 +470,12 @@
@ cdecl -arch=win64 ??$sin at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z(ptr ptr) complex_double_sin
@ cdecl -arch=win32 ??$sin at O@std@@YA?AV?$complex at O@0 at ABV10@@Z(ptr ptr) complex_double_sin
@ cdecl -arch=win64 ??$sin at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z(ptr ptr) complex_double_sin
-@ stub -arch=win32 ??$sinh at M@std@@YA?AV?$complex at M@0 at ABV10@@Z
-@ stub -arch=win64 ??$sinh at M@std@@YA?AV?$complex at M@0 at AEBV10@@Z
-@ stub -arch=win32 ??$sinh at N@std@@YA?AV?$complex at N@0 at ABV10@@Z
-@ stub -arch=win64 ??$sinh at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z
-@ stub -arch=win32 ??$sinh at O@std@@YA?AV?$complex at O@0 at ABV10@@Z
-@ stub -arch=win64 ??$sinh at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z
+@ cdecl -arch=win32 ??$sinh at M@std@@YA?AV?$complex at M@0 at ABV10@@Z(ptr ptr) complex_float_sinh
+@ cdecl -arch=win64 ??$sinh at M@std@@YA?AV?$complex at M@0 at AEBV10@@Z(ptr ptr) complex_float_sinh
+@ cdecl -arch=win32 ??$sinh at N@std@@YA?AV?$complex at N@0 at ABV10@@Z(ptr ptr) complex_double_sinh
+@ cdecl -arch=win64 ??$sinh at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z(ptr ptr) complex_double_sinh
+@ cdecl -arch=win32 ??$sinh at O@std@@YA?AV?$complex at O@0 at ABV10@@Z(ptr ptr) complex_double_sinh
+@ cdecl -arch=win64 ??$sinh at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z(ptr ptr) complex_double_sinh
@ stub -arch=win32 ??$sqrt at M@std@@YA?AV?$complex at M@0 at ABV10@@Z
@ stub -arch=win64 ??$sqrt at M@std@@YA?AV?$complex at M@0 at AEBV10@@Z
@ stub -arch=win32 ??$sqrt at N@std@@YA?AV?$complex at N@0 at ABV10@@Z
@@ -488,12 +488,12 @@
@ cdecl -arch=win64 ??$tan at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z(ptr ptr) complex_double_tan
@ cdecl -arch=win32 ??$tan at O@std@@YA?AV?$complex at O@0 at ABV10@@Z(ptr ptr) complex_double_tan
@ cdecl -arch=win64 ??$tan at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z(ptr ptr) complex_double_tan
-@ stub -arch=win32 ??$tanh at M@std@@YA?AV?$complex at M@0 at ABV10@@Z
-@ stub -arch=win64 ??$tanh at M@std@@YA?AV?$complex at M@0 at AEBV10@@Z
-@ stub -arch=win32 ??$tanh at N@std@@YA?AV?$complex at N@0 at ABV10@@Z
-@ stub -arch=win64 ??$tanh at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z
-@ stub -arch=win32 ??$tanh at O@std@@YA?AV?$complex at O@0 at ABV10@@Z
-@ stub -arch=win64 ??$tanh at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z
+@ cdecl -arch=win32 ??$tanh at M@std@@YA?AV?$complex at M@0 at ABV10@@Z(ptr ptr) complex_float_tanh
+@ cdecl -arch=win64 ??$tanh at M@std@@YA?AV?$complex at M@0 at AEBV10@@Z(ptr ptr) complex_float_tanh
+@ cdecl -arch=win32 ??$tanh at N@std@@YA?AV?$complex at N@0 at ABV10@@Z(ptr ptr) complex_double_tanh
+@ cdecl -arch=win64 ??$tanh at N@std@@YA?AV?$complex at N@0 at AEBV10@@Z(ptr ptr) complex_double_tanh
+@ cdecl -arch=win32 ??$tanh at O@std@@YA?AV?$complex at O@0 at ABV10@@Z(ptr ptr) complex_double_tanh
+@ cdecl -arch=win64 ??$tanh at O@std@@YA?AV?$complex at O@0 at AEBV10@@Z(ptr ptr) complex_double_tanh
@ thiscall -arch=win32 ??0?$_Complex_base at MU_C_float_complex@@@std@@QAE at ABM0@Z(ptr ptr ptr) complex_float_ctor
@ cdecl -arch=win64 ??0?$_Complex_base at MU_C_float_complex@@@std@@QEAA at AEBM0@Z(ptr ptr ptr) complex_float_ctor
@ thiscall -arch=win32 ??0?$_Complex_base at NU_C_double_complex@@@std@@QAE at ABN0@Z(ptr ptr ptr) complex_double_ctor
More information about the wine-cvs
mailing list